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Guida per l’input dei programmi versioni 
C64 


Notate che i listati contengono 'pa¬ 
role' racchiuse tra parentesi graffe 
/ /. Tali parole rappresentano carat¬ 
teri di controllo come mostrato nel 
sottostante riquadro. Se sono pre¬ 
cedute da un numero, questo indi¬ 
ca il numero di volte che quel tasto 
deve essere premuto. Se il simbolo 
è sottolineato deve essere premuto 
contemporaneamente a SHIFT men¬ 
tre se è racchiuso da [()] deve esse¬ 


re premuto contemporaneamente 
al tasto COMMODORE. Inoltre, se 
tra parentesi si trova un carattere 
alfabetico “solita rio" ' questo dovrà 
essere premuto contemporanea¬ 
mente al tasto CONTROL. 

Con questo sistema di codifica, sa¬ 
rà molto più agevole copiare i lista¬ 
ti senza faticose e dubbie interpre¬ 
tazioni di caratteri grafici e di con¬ 
trollo del cursore o dei colori. 


{CLR} 
{HOME} 
{SU} " 
{GIU 1 } 
{^ IN} 
{DES} 

{ RVS} 
{OFF} 

{BLK} 

{WHT} 
{RED} 


$HIM |c.a HOMI 


Smi» 


SmiM I: : 


t CRSB 






CYN} 
PUR} 
GRN} 
BLU} 
YEL} 
< 1>1 
< 2 >) 

< 3 >} 
< 4 >} 
< 5 >) 
< 6 >] 



IO 




□ 




IO 




IO 



□ 


30 

30 

30 

30 

30 

30 



(<7>| 

m 

(<8>) 

□ 

(FI) 

□ 

{ F2 } 

ai 

{ F3 } 

□ 

{F4 } 

K 

{ F5 } 

e 

{ F6 } 


{ F7 } 

E 

■1 

{ F8 } 


30 

30 

m 

m 


OH 


OD 



Per ricevere gli arretrati di 

K 



;ES eì&'fj’J compilare il seguente tagliando: 


J +. Compilare ed inviare in busta chiusa a: 

♦ SOTt viale Restelli, 5 - 20124 Milano - Tel. 02/6888228-683797-6880841-2-3 


Nome_ 

Cognome_ 

Indirizzo_ 

CAP_ Città_ Prov 


Desidero ricevere i seguenti numeri arretrati di 



SyJ'J dedicato a_ 

a L 2 000 cad per un totale di L. 


Anno_ 

Anno_ 

a mezzo 


□ assegno allegato □ contanti allegati 

K 
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Stop Bus 


Se non l’hai già fatto, memorizza 
STOP BUG e salvalo su nastro o di¬ 
sco. 

Questo programma ti permette, 
una volta caricato ed attivato con 
RUN, di digitare i listati di Papersoft 
senza introdurre errori di battitu¬ 
ra. 

Come avrai notato, le linee dei no¬ 
stri programmi terminano con la 
parola.- "-.rem’’ seguita da un nume¬ 
ro, detto checksum,- NON COPIA¬ 
RE QUESTA PARTE DELLA LINEA, 


che serve solo per tua informazio¬ 
ne. Quando STOP BUG è in funzio¬ 
ne, infatti, tutte le volte che premi 
il tasto RETURN dopo aver digitato 
una linea di programma, appare 
nell’angolo superiore sinistro dello 
schermo un numero, che deve 
coincidere con il checksum da noi 
pubblicato (sempre che tu non ab¬ 
bia usato comandi abbreviati, co¬ 
me? per PRINT). 

Usando STOP BUG tieni conto del 
fatto che gli spazi non influiscono 
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sul checksum, per cui fai particola¬ 
re attenzione alle istruzioni PRINT 
dove sono spesso presenti. Inoltre 
eventuali inversioni di caratteri non 
vengono segnalate. 

Un altro metodo per utilizzare 
STOP BUG, soprattutto se sei abi¬ 
tuato ad usare le abbreviazioni dei 
comandi Basic , è controllare i che¬ 
cksum listando il programma e bat¬ 
tendo RETURN su ogni linea. 


Se intendi sospendere il lavoro di 
digitazione, puoi salvare su nastro 
o disco il programma che stai me¬ 
morizzando senza che STOP BUG 
interferisca; al momento di ripren¬ 
dere il lavoro ricordati però di cari¬ 
care ed attivare STOP BUG prima 
di ricaricare il tuo programma. 

Per disabilitare STOP BUG premi 
RUN/STOP e RESTORE, e per riatti¬ 
varlo batti SYS 40704. 


STOP BUG per C64 

1 00 POKE55,0 :POKE56,PEEK(56)-1 :R=PEEK(56)*256:PRINT"{CLR} 
ATTENDERE PREGO..." 

1 10 FORI=RTOR+l32 :READA:CK=CK+A:IFA=999THENA=R/2 56 
120 POREI, A:NEXT 

130 IFCK022689THENPRINT" {GIU ' }ERRORE NELLE ISTRUZIONI DA 
TA":END 

140 SYS(R):PRINT"{CLR}{ 2 GIU'}{RVS}STOP BUG{OFF} ATTIVAT 
O."INEW 

200 DATAI 73,36,3,201 ,32,208,1,96,1 41 
210 DATA33,999,173,37,3,141 ,34,999,1 69 

2 20 DATA32,1 41 ,36,3,1 69,999,141 ,37,3 
230 DATAI 69,0,1 33,254,96,32,87,241 ,1 33 
240 DATA251,134,252,132,253,8,201,13,240 
250 DATAI 7,201 ,32,240,5,24,1 01 ,2 54,1 33 
260 DATA254,165,251,166,252,164,253,40,96 
270 DATAI 69,1 3,32,21 0,255,165,21 4,1 41 ,251 
280 DATA3,206,251,3,169,0,133,216,169 
290 DATAI 9,32,21 0,255,1 69,18,32,21 0,255 
300 DATAI 69,58,32,21 0,2 55,1 66,2 54,1 69,0 
310 DATAI 33,254,1 72,33,999,1 92,87,208,6 
320 DATA32,205,189,76,117,999,32,205,221 
330 DATAI 69,32,32,21 0,255,32,21 0,255,1 73 
340 DATA251,3,133,214,76,55,999 
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Superkeys 


Non vi è mai successo di battere 
programmi, anche della nostra rivi¬ 
sta, con molte parole chiavi del ba¬ 
sic (es. POKE, FOR, TO)? Con que¬ 
sto programma è possibile ridefini¬ 
re i tasti funzione, rendendo più 
veloce la digitazione. 

Per ridefinire nuovamente i tasti 
funzione bisogna digitare SYS 
38276, mentre per vedere la lista 
dei tasti basta digitare SYS 38144. 
Se si vuole riattivare SUPERKEYS 


dopo aver digitato RUN/STOP + 
RE STO RE è necessario digitare SYS 
38728. 

È possibile anche inserire H "carria- 
ge return " automatico: si ottiene in¬ 
postando il carattere "freccia verso 
sinistra * dopo la istruzione voluta, 
per esempio: LIST (freccia verso si¬ 
nistra). 

Una volta presa la mano con que¬ 
sta utility siamo sicuri che ci ringra¬ 
zierete. 


80 REM** C64 SUPERKEYS ** :rem 108 

90 REM** PAPERSOFT ** :rera 169 

100 READA,B ;rem 92 

110 PRINTCHR$(147);CHR$(17);"C64 SUPERKEYS" :rem 249 

120 PRINT"{ 2 GIU'}ATTENDERE PREGO..." :rem 41 

1 25 CH = 0 : rem 144 

130 FORI=ATOB:READX:POKEI,X:CH=CH+X:NEXT :rem 148 

140 SYS382 7 6 : NEW :rem 194 

500 DATA38144,38892 :rem 237 

510 DATAI 69,1 47,32,21 0,255,1 62,1 , 1 60,74,32,1 74,1 50,1 62,1 8 
3»160 : rem 23 

520 DATA8,32,174,150,162,205,160,16,32,174,150,169,13,32, 
210 : rem 169 

530 DATA2 55,32,21 0,255,2 34,32,4 6,1 4 9,1 62,1 27,1 60,33,32,1 7 
4/150 : rem 23 

540 DATA96,162,255,160,49,189,0,148,201,133,240,37,201,13 
4/240 :rem 29 

550 DATA33,201 ,135,240,29,201 ,136,240,25,201 ,137,240,21 ,2 
01/138 :r em 4 7 

560 DATA240,17,201,139,240,13,201,140,240,9,201,13,240,34 
/201 : rem 195 

570 DATA255,208,32,96,169,13,32,210,255,169,70,32,210,255 
/15 2 :r em 2 4 3 

580 DATA32,210,255,200,169,61,32,210,255,169,32,32,210,25 
5/202 : rem 13 

590 DATA208,!84,96,169,95,32,210,255,202,208,175,96,169,1 
2/141 : rem 59 
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600 DATA33,208,169,144,32,210,255,162,1,169,255,157,255,1 
47,232 :rem 87 

610 DATA208,250, 1 69,0,1 33,55,1 69,1 49,1 33,56,32,1 69,1 50,32 
r199 : rem 254 

6 20 DATAI 50,76,21 2,1 50,255,1 47,1 7,42,42,42,42,32,67,32,54 

:rem 32 

630 DATA52,32,32,83,32,85,32,80,32,69,32,82,32,75,32 

:rem 47 

640 DATA69,32,89,32,83,32,42,42,42,42,13,32,13,42,42 

:rem 39 

650 DATA42,42,32,32,32,80,32,65,32,80,32,69,32,82,32 

:rem 37 

660 DATA83,32,79,32,70,32,84,32,32,32,32,32,42,42,42 

:rem 38 

670 DATA42,!3,32,13,45,45,45,45,68,69,70,73,78,69,32 

:rem 71 

680 DATA69,65,67,72,32,70,85,78,67,84,73,79,78,32,75 

: rem 107 

690 DATA69,89,45,45,45,45,45,13,32,32,32,32,32,32,32 

:rem 53 

700 DATA32,32,32,40,95,32,61,32,67,82,41,13,32,13,32 

:rem 25 

710 DATA32,32,32,83,89,83,32,51,56,50,55,54,32,84,79 

:rem 63 

720 DATA32,82,69,68,69,70,73,78,69,32,75,69,89,83,13 

: rem 101 

730 DATA32,32,32,32,83,89,83,32,51,56,49,52,52,32,84 

:rem -57 

740 DATA79,32,80,82,73,78,84,32,67,85,82,82,69,78,84 

: rem 102 

7 50 DATAI 3,32,32,32,32,32,32,32,32,32,32,32,32,32,32 

: rem 8 

760 DATA75,69,89,32,68,69,70,73,78,73,84,73,79,78,83 

: rem 119 

770 DATA13,45,45,45,45,45,45,45,45,45,45,45,45,45,45 

:rem 66 

780 DATA45,45,45,45,45,45,45,45,45,45,45,45,45,45,45 

:rem 72 

79 0 DATA45,45,45,45,13,162,1 ,1 72,169,149,189,169,149,32,2 
10 : rem 164 

800 DATA255,232,136,152,208,245,96,234,234,234,234,234,23 
4,234,234 :rem 235 

810 DATA234,234,234,234,234,120,169,49,141,20,3,169,234,1 
41,21 : rem 21 

820 DATA3,88,96,32,94,151,165,55,133,251,133,253,165,56,1 
3 3 :r em 15 5 

830 DATA252,133,254,169,49,133,247,169,133,133,248,169,13 
,32,210 : rem 145 

840 DATA255,169,70,32,210,255,165,247,32,210,255,169,61,3 
2,210 :rem33 
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850 DATA255,169,63,32,210,255,169,32,32,210,255,32,207,25 
5,72 :rem244 

8 60 DATAI 60,0,1 65,248,1 45,55,1 04,32,94,1 51 ,201 ,13,240,14, 
201 :rem 168 

870 DATA95,208,2,169,13,145,55,32,207,255,76,20,151,230,2 
4 7 :r em 14 9 

8 80 DATAI 6 5,2 4 7,41 ,1 ,208,10,24,165,248,105,4,133,248,76,6 

6 : rem 100 

8 90 DATAI 51,56,165,248,233,3,133,248,165,247,201 , 57,144,1 

63,1 20 : rem 93 

9 00 DATAI 6 9,1 1 7,1 41 ,20,3,169,151, 141,21,3,88,169,0,133,24 

7 : rem 86 

910 DATA96,234,234,234,234,234,166,55,208,2,198,56,198,55 

,96 :rem 227 

920 DATA234,234,234,234,234,234,234,234,234,234,234,234,2 
34,234,165 : rem 23 

930 DATA247,240,59,160,0,177,251,32,216,151,176,12,165,55 
,197 :rem 250 

940 DATA251,208,21,165,56,197,252,208,15,169,0,133,247,16 
5,253 :rem 47 

9 50 DATAI 33,251 ,1 65,254,1 33,252,76,49,234,1 66,1 98,1 77,251 
,157,119 : rem 215 

960 DATA2,230,198,32,228,151,165,198,201,11,144,204,230,2 
47,76 :rem35 

9 70 DATA4 9,234,1 65,21 5,32,21 6,1 51 , 1 76,3,76,49,234,1 65,8,4 
1 : rem 110 

980 DATAI,208,247,160,0,177,251,197,215,208,6,32,228,151, 
76 : rem 151 

9 90 DATAI 23,1 51 ,32,228,151 ,76,198,151 ,201 ,133,144,6,201 ,1 
41,176 :rem79 

1000 DATA2,56,96,24,96,166,251,208,2,198,252,198,251,96 

:rem 221 





ni nervi 



Il prosramma qui presentato è un 
vero sioco di NERVI. 

Si sioca in due. C> 3 ni siocatore 
parte con 200 punti e deve arrivare 
a 500 punti prima dell'avversario 
per vincere 500 dollari. Ciascun 
Siocatore tira i dadi almeno due 


volte. Il primo tiro rimane sul ban¬ 
co; i tiri successivi non devono es¬ 
sere usuali al primo, per poter ac¬ 
quisire dei punti. Quando un tiro 
risulta usuale al primo, si perde la 
mano e la cifra rassruppata viene 
persa e quindi sottratta dasli ini- 
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zidli 200 punti o dal punteggio pri¬ 
ma raggiunto. Qiuando non si vuole 
rischiare ancora e si vogliono pren¬ 
dere i punti, basta rinunciare al tiro 
e passare la mano all'avversario. 
Bisogna ricordare che fino a che 


non si passa la mano non si guada¬ 
gna nulla, anzi i virtuali punti gua¬ 
dagnati possono essere sottratti. 
Ma cosa aspettate a farvi venire I 
NERVI??!! 


1 0 REM *********** 

: rem 

1 9 

20 REM * * 

: rem 

1 54 

30 REM * I NERVI * 

: rem 

1 04 

35 REM * * 

: rem 

1 60 

40 REM *PAPERSOFT* 

: rem 

80 

45 REM * * 

: rem 

1 61 

50 REM *********** 

: rem 

23 

60 POKE53281,1 

: rem 

245 

70 PRINT"{CLR}{ 2 GIU'}" 

: rem 

237 

80 PRINTTAB(8)"NOME GIOCATORE # 1" 

: rem 

1 85 

90 INPUTPLA$( 1 ) 

: rem 

1 24 

100 PRINTTAB(8)"NOME GIOCATORE # 2" 

: rem 

227 

110 INPUTPLA$(2) 

: rem 

1 66 

120 PRINT"{CLR}{ 2 GIU'}" 

: rem 

25 

130 PRINTTAB(15)"{RVS}{RED}I NERVI{OFF}{BLU}{ 2 

GIU 1 }' 

II 


: rem 

1 93 

140 PRINTTAB(9)"PROVA A RAGGIUNGERE" 

: rem 

1 92 

150 PRINTTAB(9)"500 PUNTI PRIMA" 

: rem 

1 02 

160 PRINTTAB(9)"DEL TUO AVVERSARIO." 

: rem 

1 98 

170 PRINTTAB(9)"TIRA I DADI FINCHE"' 

: rem 

. 41 

180 PRINTTAB(9)"VUOI,{DES}MA OCCHIO" 

: rem 

1 54 

190 PRINTTAB(9)"A NON SBALLARE!" 

: rem 

95 

200 PRINT"{ 2 GIU'}" 

: rem 

1 33 

210 PRINTTAB(12)"{RVS}{GRN}PREMI UN TASTO{BLU}" 

: rem 

233 

220 GETA$:IFA$=""THENGOTO220 

: rem 

1 32 

230 PLA=1 

: rem 

224 

240 OP=2 

: rem 

1 64 

250 CA(1)=200 

: rem 

1 08 

260 CA(2)=200 

: rem 

1 1 0 

270 GOTO300 

: rem 

1 01 

2 80 RO = INT(RND(1)* 6)+INT(RND(1)*6)+2 

: rem 

4 

290 RETURN 

: rem 

1 23 

300 PRINT"{CLR}{ 2 GIU'}" 

: rem 

25 

310 PRINT"{RVS}{GRN}";PLA$(PLA);"{BLU}{OFF} HA 

TIRATO 

II 


: rem 

1 39 

320 GOSUB280 

: rem 

1 75 

330 FR=RO 

: rem 

1 2 

340 GOSUB280 

: rem 

1 77 

350 IF FR=RO GOTO340 

: rem 

1 09 

360 GOTO410 

: rem 

1 03 

370 PRINT"{CLR}{ 2 GIU'}" 

: rem 

32 

380 GOSUB280 

: rem 

1 81 
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390 

PRINT"{RVS}{GRN} M ;PLA$(PLA);"{BLU}{OFF} HA 

TIRATO’ 

ii 



: rem 

1 47 

400 

IF FR=RO GOTO630 

: rem 

1 07 

41 0 

IFC A{1)> 500ORCA(2)>500GOT0730 

: rem 

75 

420 

PRINT"{GIU'}PRIMO TIRO:";FR 

: rem 

74 

430 

PRINT"{GIU'}" 

: rem 

1 21 

440 

PRINT"SUCCESSIVO TIRO:";RO 

: rem 

1 96 

450 

PRINT"{GIU'}" 

: rem 

1 23 

460 

TT=TT+RO 

: rem 

243 

470 

PRINT"TOTALE PUNTI:";CA(PLA) 

: rem 

236 

480 

PRINT"{GIU*}" 

: rem 

1 26 

490 

PRINT"PUNTI PRESI:";TT 

: rem 

1 58 

500 

PRINT"{GIU'}" 

: rem 

1 1 9 

510 

PRINT"PUNTI AVVERSARIO:";CA(OP) 

: rem 

226 

520 

PRINT"{GIU'}" 

: reni 

1 21 

530 

PRINTTAB(12)"{RVS}{REDjTIRI ANCORA?{BLU}" 

: rem 

1 08 

540 

GETAN$:IFAN$=""GOTO540 

: rem 

251 

550 

IFAN$="N"THENCA(PLA)=CA(PLA)+TT:GOTO580 

: rem 

94 

560 

IFAN$ = "S"THENFORN = 1TO100 :NEXTN: GOTO370 

: rem 

1 39 

570 

GOTO540 

: rem 

1 1 0 

580 

TT= 0 

: rem 

1 78 

590 

IFPLA=1THENPLA= 2 :OP=1 :GOTO300 

: rem 

64 

600 

OP= 2 

: rem 

1 64 

610 

PLA= 1 

: rem 

226 

620 

GOTO300 

: rem 

1 00 

630 

PRINT"{CLR}{ 2 GIU'}" 

: rem 

31 

640 

PRINTTAB(13)"HAI PERSO ! { 2 GIU’}" 

: rem 

1 49 

650 

PRINTTAB(13)"POSSIEDI"; 

: rem 

1 47 

660 

CA(PLA)=CA(PLA)-TT 

: rem 

1 8 

670 

PRINTCA(PLA) 

: rem 

220 

680 

PRINT"{ 2 GIU'}";TAB(12)"{RVS}{GRN}PREMI UN TASTO 



{BLU}" 

: rem 

1 49 

690 

GETA$: IFA$ = ""GOTO69 0 

: rem 

1 07 

700 

TT=0 

: rem 

1 72 

710 

PRINT"{CLR}" 

: rem 

252 

720 

GOTO580 

: rem 

1 1 1 

730 

PRINT"{CLR}{ 2 GIU ' }" 

: rem 

32 

740 

IFCA(1)>CA(2)THEN762 

: rem 

67 

750 

PRINTTAB(11)PLA$(2) ; " VINCE!" 

: rem 

76 

760 

PRINTTAB(11)"CON $"CA(2):GOTO770 

: rem 

20 

762 

PRINTTAB(11)PLA$(1);" VINCE!":PRINTTAB(11) 

"CON $" 

;CA ( 


1 ) 

: rem 

40 

770 

POKEl98,0:PRINTTAB(12)"{GIU'}{RVS}{GRN}GIOCHI ANCORA? 


{BLU}" 

: rem 

1 03 

780 

GETA$: IFA$ = ""GOTO78 0 

: rem 

1 07 

790 

IFA$="S"THENRUN 

: rem 

1 40 

800 

IFA$="N"THENEND 

: rem 

97 

810 

GOTO780 

: rem 

1 1 3 
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Mini-Mancala 




Questo programma trae origine da 
un antico gioco arabo. Ci sono 4 
tazze contrassegnate dalle lettere 
A,B,C,D: due, la A e la B, apparten¬ 
gono al computer ; le altre due, la 
Ce la D, sono tue. 

Al l'inizio del gioco tutte le tazze 
contengono 2 pedine. A turno i 
giocatori, cioè tu e il computer, de¬ 
vono prendere le pedine contenu¬ 
te in una delle proprie tazze e di¬ 
stribuirle una ad una in senso anti¬ 
orario nelle altre tazze. Ci dovrà es¬ 
sere sempre almeno una tazza 


vuota in quanto le pedine non 
possono essere rimesse nella tazza 
da cui sono state prese. 

Vince chi riesce a portare tutte le 
pedine in una delle proprie tazze. 
Puoi scegliere il livello di difficoltà 
(da 1 a 3, 1 è il più semplice) e chi 
deve iniziare per primo. Non sco¬ 
raggiarti per gli insuccessi iniziali 
perché il gioco è realmente molto 
difficile; con un po' di pazienza, 
tuttavia, riuscirai a mettere a punto 
una strategia vincente. 


10 REM *MINI-MANCALA* 



: rem 

224 

20 POKE5 32 80,1 1 :POKE53281 , 9 



: rem 

242 

30 DIMB(3),SU(3) 



: rem 

91 

40 DEF FNSP(X)=15+80*(XAND2)+6*(XAND1 ) 



: rem 

_ 89 

50 FORI=0TO3 



: rem 

21 6 

60 B(I)=2 



: rem 

1 77 

70 READSU(I) 



: rem 

1 97 

80 NEXT 



: rem 

1 67 

90 DATA2,0,3,1 



: rem 

205 

100 E$ = "{HOME}{ 17 GIU'H 7 DES } " 



: rem 

1 22 

110 GOTO560 



: rem 

1 02 

120 REM *DISEGNO SCHERMO* 



: rem 

229 

1 30 PRINT"{CLR} [<6>] {GIU* }"SPC(12)"{RVS} 

MINI { 

2 *}MANCAL 

A {BLK}" 



: rem 

1 88 

140 PRINT 



: rem 

34 

150 PRINTSPC(11)" A"SPC(13)"B" 



: rem 

98 

160 PRINTSPC(11)"{ 2 SPAZI)[<A>]{ 5 C}[<R> 

] { 5 

C} [<S>] 

II 




: rem 

1 75 

170 PRINTSPC(11)"{ 2 SPAZI}^{ 5 SPAZlJ^t 

5 

SPAZI}-" 


• 



: rem 

1 53 

180 PRINTSPC(11)"{ 2 SPAZI}-{ 2 SPAZI}2{ 

2 

SPAZI}- 


{ 2 SPAZI}2{ 2 SPAZI}-" 



: rem 

254 

190 PRINTSPC(11)"{ 2 SPAZl}-{ 5 SPAZl}^{ 

5 

SPAZI}-" 


* 



: rem 

1 55 

200 PRINTSPC(11)"{ 2 SPAZI)[<Q>]{ 5 C}+{ 

5 

C} [<W>] " 





: rem 

21 1 





21 0 

PRINTSPC(11)"{ 2 SPAZI}-{ 5 SPAZI}-{ 5 SPAZI}-" 



• 

: rem 

148 

220 

PRINTSPC(11)"{ 2 SPAZI}-{ 2 SPAZI}2{ 2 SPAZI}- 



{ 2 SPAZI}2{ 2 SPAZI}-" 

: rem 

249 

230 

PRINTSPC(11)"{ 2 SPAZI}-{ 5 SPAZI}-{ 5 SPAZI}-" 



• • 

: rem 

1 50 

240 

PRINTSPC(11)"{ 2 SPAZI}[<Z>] { 5 C}[<E>]{ 5 

C} [<X>] 

II 


• 

: rem 

1 85 

250 

PRINTSPC(11)" C"SPC(13)"D" 

: rem 

1 03 

260 

RETURN 

: rem 

1 20 

270 

REM *IMPUT MOSSA* 

: rem 

227 

280 

PRINTE$"MUOVI DALLA TAZZA (C/D){ 2 SPAZI}{ 

2 SIN}" 

• 

t 



: rem 

200 

290 

INPUTS$ 

: rem 

1 62 

300 

IFS$ = ""THEN280 

: rem 

227 

310 

S=-2 *(S$ = "C")- 3 *(S$ = "D") 

: rem 

80 

320 

IFS = OORB(S) =0THEN2 80 

: rem 

1 61 

330 

RETURN 

: rem 

1 1 8 

340 

REM *MOSSA COMPUTER* 

: rem 

1 93 

350 

PRINTE$"{ 5 SPAZI}ORA TOCCA A ME{ 7 SPAZI} 

" : rem 

241 

360 

FORDE=lTO500:NEXTDE 

: rem 

1 77 

370 

IFLE<3ANDRND(0)*LE<.6THENS=INT(RND(0)*2):GOTO400 




: rem 

1 27 

380 

Q=B(2)+10*(B(l)+10*B(0)) 

: rem 

50 

390 

S=1 

: rem 

93 

400 

IFQ=1 430RQ=1 3 40RQ= 611ORQ=116THENS = 0 

: rem 

141 

41 0 

IFB(S) =0 THENS=1-S 

: rem 

231 

420 

PRINTE$"{ 3 SPAZI}MUOVO DALLA TAZZA "MID$( 

"AB" t S+l 

rD 



: rem 

1 56 

430 

RETURN 

: rem 

1 1 9 

440 

REM *MOVIMENTO ANTIORARIO* 

: rem 

134 

450 

D=S 

: rem 

1 09 

460 

FORC=lTOB(S) 

: rem 

1 87 

470 

FORDE=lT0400 :NEXTDE 

: rem 

1 78 

480 

D=SU (D) 

: rem 

90 

490 

IFD = STHEN4 80 

: rem 

203 

500 

B(S)=B(S)-1 

: rem 

252 

51 0 

PRINT"{HOME}{ 6 GIU'}"SPC(FNSP(S));B(S) 

: rem 

1 9 

520 

B (D ) =B (D ) +1 

: rem 

222 

530 

PRINT"{HOME}{ 6 GIU'}"SPC(FNSP(D));B(D) 

: rem 

247 

540 

NEXTC 

*: rem 

27 

550 

RETURN 

: rem 

1 22 

560 

REM *PROGRAMMA PRINCIPALE* 

: rem 

96 

570 

GOSUBl20 

: rem 

1 75 

580 

PRINTE$"{ 4 SPAZI}LIVELLO{ 2 SPAZI}(1-3)"; 

: rem 

11 

590 

INPUTLE 

: rem 

1 91 

600 

IFLE<1ORLE> 3THEN580 

: rem 

1 46 

61 0 

PRINTE$"VUOI INIZIARE TU (S/N)"; 

: rem 

116 

620 

INPUTAN$ 

: rem 

21 9 

630 

IFAN$ = "N"THEN6 80 

: rem 

1 1 9 

640 

IFAN$ < >"S"THEN61 0 

: rem 

1 79 


12 


650 GOSUB270 
660 GOSUB440 

670 IFB(3)=8THENPRINTE$"{ 8 
OTO720 
680 GOSUB340 
690 GOSUB440 

700 IFB(0)=8THENPRINTE$"{ 8 
TO720 

710 GOTO650 
720 PRINT: END 


: rem 180 
: rem 180 

SPAZI}HAI VINTO!{ 8 SPAZI}":G 

:rem 95 
: r em 181 
: rem 183 

SPAZI}HO VINTO!{ 9 SPAZI}":GO 

:rem 27 
:rem 108 
: rem 55 


Trippy 


u 

«* 

Joystick SJ 


I rami deI melo del simpàtico Trip¬ 
py hanno valicato il muro di cinta 
del suo orto, invadendo il terreno 
del vicino, il truce Mister Monster. 
Quest’ultimo per dispetto scaglia 
a terra le mele de! povero Trippy, 


che con un canestro deve cercare 
di recuperarne il maggior numero 
possibile. A te il compito di guida¬ 
re il nostro eroe usando il joystick 
n. 2. 


1 000 

REM *TRIPPY* 


: rem 

225 

101 0 

PRINTCHR$(1 47) 


: rem 

61 

1 020 

FORI=49183T049478:READJ 


: rem 

1 40 

1030 

POKEI,J:CC=CC+J:NEXTI 


: rem 

1 08 

1040 

READJ:IFJ< >CCTHENPRINT"ERRORE NELLE 

DATA" 

: END 

: rem 

1 68 

1050 

REM 


: rem 

1 70 

1 060 

FORI=0TO62:READJ:POKE1+832,J:NEXT 


: rem 

1 20 

1 070 

FORI=0TO62:READJ:POKEI+896, J :NEXT 

• 

: rem 

1 31 

1 080 

FORI=0TO62:READJ:POKEI+960,J:NEXT 


: rem 

1 24 

1 090 

REM 


: rem 

1 74 

1 1 00 

POKE49152,30:POKE49153,0 


: rem 

80 

ino 

POKE49156,255:POKE49157,0 


: rem 

1 46 

1 1 20 

POKE49160,1 80 :POKE49161,0 


: rem 

1 34 

1 1 30 

POKE491 64,1 97:POKE491 6 5,0 


: rem 

1 51 

1 1 40 

POKE491 6 8,0:POKE491 69,255:POKE491 73 

, 1 80 

s rem 

209 

1 1 50 

REM 


: rem 

1 71 

1 1 60 

POKE2040,1 3 :POKE2041 ,1 4:POKE2042,1 5 


: rem 

209 

1 1 70 

VC = 53248:SYS 4 9183 


: rem 

231 

1 1 80 

POKEVC+0,120 :POKEVC + 1,68 


: rem 

1 64 

1 1 90 

POKEVC+2,120:POKEVC+3,160 


: rem 

21 0 

1 200 

POKEVC+29,3 


: rem 

1 28 


13 


1 21 0 

POKEVC+23,1 

: rem 

1 21 

1 220 

POKEVC+39,5 

: rem 

1 33 

1 230 

POKEVC+40,3 

: rem 

1 24 

1 240 

POKEVC+41,1 

: rem 

1 24 

1 250 

X = 1 20 

: rem 

240 

1260 

REM 

: rem 

1 73 

1 270 

POKE53280,0:POKE53281,0 

: rem 

31 

1 280 

SC=1064:CO=55336 

: rem 

1 20 

1 290 

FORT=OTO16 0 :POKECO+T,6 

: rem 

1 38 

1 300 

POKESC+T,160 :NEXTT 

: rem 

1 52 

1 310 

FORT=0TO559STEP3:POKECO+T+160,2 

: rem 

1 88 

1320 

POKECO+T+160+1,2 

: rem 

1 30 

1 330 

POKECO+T+160 + 2,2 :POKESC+T+1 60,239 

: rem 

1 42 

1 340 

POKESC+T+160+1,239 

s rem 

244 

1 350 

POKESC+T+160+2,250:NEXTT 

: rem 

1 88 

1 360 

FORT=0TO24 0 :POKECO+T+720,5 

: rem 

74 

1 370 

POKESC+T+720,160:NEXT 

: rem 

1 5 

1 380 

PRINTCHR$(19)CHR$(30) 

: rem 

202 

1 390 

PRINTTAB(30)CHR$(18)"{ 2 SPAZI}"CHR$( 1 49) ; 

: rem 

15 

1 400 

PRINT" "CHR$(28)" "CHR$(30)" 

: rem 

202 

1410 

PRINTCHR$(149)" "CHR$(30)" " 

: rem 

1 28 

1 420 

PRINTCHR$(18); 

: rem 

74 

1 430 

PRINTTAB(29)" "CHR$(28)" "CHR$(30); 

: rem 

28 

1 440 

PRINT"{ 2 SPAZI}"CHR$(28)" "CHR$(30); 

: rem 

1 38 

1 450 

PRINTCHR$(18); 

: rem 

77 

1 460 

PRINT"{ 2 SPAZI}"CHR$(149)" "CHR$(30) M " 

: rem 

201 

1 470 

PRINTCHR$(18); 

: rem 

79 

1 480 

PRINTTAB(29)CHR$(28)" "CHR$(30)" 

: rem 

33 

1 490 

PRINTCHR$(149)" "CHR$(30)" "CHR$(149); 

: rem 

1 79 

1 500 

PRINT" "CHR$(28)" "CHR$(30); 

: rem 

1 35 

1 510 

PRINTCHR$(149)" "CHR$(28)" "CHR$(30); 

2 rem 

1 20 

1 520 

PRINT" " 

2 rem 

1 53 

1 530 

PRINTCHR$(18); 

2 rem 

76 

1 540 

PRINTTAB(28)CHR$(28)" "CHR$(30)"{ 2 SPAZI} 

11 • 
f 




2 rem 

29 

1 550 

PRINTCHR$(28)" "CHR$(149)" "CHR$(30); 

2 rem 

1 24 

1 560 

PRINT"{ 2 SPAZI}"CHR$(149)" "CHR$(30)"{ 2 

SPAZI} 

n . 

! 



2 rem 

5 

1 570 

PRINTCHR$(149)" " 

2 rem 

1 42 

1 580 

POKEVC+21,3 

2 rem 

1 31 

1 590 

POKE782,29 :POKE781 ,10:SYS65520 

2 rem 

7 

1 600 

PRINTCHR$(5)CHR$(18)"[<A>]{ 5 *}{ 3 C}[<S> 

]" 




2 rem 

65 

1610 

POKE782,29 :POKE781 ,11:SYS65520 

2 rem 

1 

1620 

PRINTCHR$ (5) CHR$(18)"BRIMANI{ 2 SPAZI}B" 

2 rem 

32 

1 630 

POKE782,29 :POKE781 ,12:SYS65520 

2 rem 

4 

1640 

PRINTCHR$( 5 )CHR$(18)"BLONTANO!B" 

2 rem 

• 158 

1650 

POKE782,29 :POKE781,13:SYS65520 

2 rem 

7 

1 660 

PRINTCHR$( 5 )CHR$(18)"[<Z>]{ 2 C}{ 4 *}{ 2 

C}[<X>]"CH 


R$ (1 46) 

2 rem 

67 

1670 

PRINTCHR$(19)CHR$ (158)"PUNTI:" 

2 rem 

21 
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1 680 

PRINTCHR$(19)CHR$(158)TAB(17)"RECORD:" 

: rem 

21 3 

1 690 

D=8:GOSUBl910:GOSUB1950 

: rem 

1 51 

1 700 

REM 

: rem 

1 72 

1710 

PRINTCHR$(19)CHR$(5)TAB(8) ; SE;"{ 2 SPAZI}" 

: rem 

75 

1 720 

IFSE>HITHENHI=SE 

: rem 

85 

1 730 

PRINTCHR$(19)CHR$(5)TAB(30);HI 

: rem 

242 

1 740 

IFX<256THENPOKEVC+0,X 

: rem 

98 

1750 

IFDR=OTHENAX=INT(RND(TI)*21 0 + 40) 

: rem 

1 90 

1 760 

IFDR=0THENF=F-1:IFF<1THENF=1 

: rem 

21 

1 770 

X=X+D:IFX<30ORX>246THEND=-D 

: rem 

223 

1 780 

POKEVC+39, INT(RND(TI)*2+4) 

: rem 

36 

1 790 

POKEVC+30,0 

: rem 

1 31 

1 800 

PX=PEEK(49169):PY=PEEK(49173) 

: rem 

207 

1 81 0 

IFPEEK(VC+30)AND2=2THENGOSUBl950 

: rem 

232 

1 820 

IFF=1THENDR=1 

: rem 

65 

1830 

IFDR=1THENPOKEVC+21,7 

: rem 

71 

1 840 

IFDR=1THENAY = AY + 6 + INT(SE/1 00) 

: rem 

32 

1 850 

IFAY>190THENGOSUB1910 

: rem 

73 

1 860 

POKEVC+2;PX:POKEVC+3,PY 

: rem 

253 

1 870 

POKEVC + 4, AX:POKEVC + 5,AY 

: rem 

228 

1 880 

IFCA=1THENSE=SE+10:CA=0 

2 rem 

1 65 

1 890 

GOTOl710 

2 rem 

212 

1 900 

REM 

2 rem 

1 74 

1910 

AY=95:POKEVC+21,3:DR=0 

2 rem 

60 

1 920 

IFCA=0THENMI=MI+1:IFMI>5THENl980 

2 rem 

1 9 

1 930 

RETURN 

2 rem 

1 73 

1 940 

REM 

2 rem 

1 78 

1 950 

CA=1 :AY=95:DR=0 

2 rem 

1 25 

1 960 

POKEVC+21,3:F=2 

2 rem 

1 1 6 

1970 

RETURN 

2 rem 

1 77 

1 980 

REM 

2 rem 

1 82 

1 990 

POKE781,20:POKE782,6:SYS65520 

2 rem 

21 5 

2000 

PRINTCHR$(5)"CADUTE TROPPE MELE" 

2 rem 

205 

201 0 

POKE781,22:POKE782,6:SYS65520 

2 rem 

201 

2020 

PRINTCHR$(5)"PREMI UN TASTO PER GIOCARE" 

2 rem 

168 

2030 

GETA$:IFA$ = ""THEN2030 

2 rem 

1 73 

2040 

SE=-10:DR=0:F=5:AY=85:CA=0:MI=0 

2 rem 

62 

2050 

GOTOl360 

2 rem 

202 

2060 

DATAI 20,1 73,20,3,1 41 ,29,1 92,1 73,21 

2 rem 

1 60 

2070 

DATA3,1 41 ,30,1 92,169,71 ,141 ,20,3 

2 rem 

62 

2080 

DATAI 69,1 92,1 41 ,21 ,3,88,96,120,173 

2 rem 

1 85 

2090 

DATA29,1 92,1 41 ,20,3,1 73,30,1 92,1 41 

2 rem 

1 67 

2100 

DATA21,3,88,96,173,27,192,205,16 

2 rem 

80 

21 1 0 

DATAI 92,240,3,76,65,1 93,1 69,255 

2 rem 

40 

2120 

DATAI 41 ,27,1 92,162,0,1 60,0,185,2 

2 rem 

58 

21 30 

DATA220,1 41 ,28,1 92,1 69,224,1 53,2 

2 rem 

71 

2140 

DATA220,1 85,0,220,72,1 73,28,1 92 

2 rem 

21 

21 50 

DATAI 53,2,220,1 89,8,1 92,221 ,21 ,1 92 

2 rem 

1 71 

2160 

DATAI 89,9,1 92,253,22,1 92,144,1 8 

2 rem 

42 

2170 

DATAI 89,8,1 92,1 57,21 ,1 92,1 89,9,1 92 

2 rem 

205 

21 80 

DATAI 57,22,1 92,1 04,74,72,76,162 

2 rem 

37 
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2190 DATAI 92,104,74,72,176,13,222,21 
2200 DATAI 92,1 89,21 ,1 92,201 ,25 5,208 r 3 
2210 DATA222,22,192,189,21,192,221,12 
2220 DATAI 92,1 89,22,1 92,253,13,1 92,144 
2 230 DATAI 8,1 89,1 2,1 92,1 57,21 ,1 92,1 89 
2 240 DATAI 3,1 92,1 57,22,1 92,1 04,74,72,76 
2250 DATA207,192,104,74,72,176,8,254,21 
2 260 DATAI 92,208,3,254,22,1 92,1 89,0,1 92 
2270 DATA221 ,17,192,189,1 ,1 92,253,18 
228 0 DATAI 92,1 44,1 8,1 89,0,1 92,1 57,1 7 
2290 DATAI 92,1 89,1 ,1 92,1 57,1 8,1 92,1 04 
2300 DATA74,72,76,1,193,104,74,72,176 
2310 DATAI 3,2 22,1 7,1 92,1 89,1 7,1 92,201 
2320 DATA255,208,3,222,1 8,1 92,1 89,1 7 
2 330 DATAI 92,221 ,4,1 92,1 89,1 8,1 92,253,5 
2 340 DATAI 92,1 4 4,1 8,1 89,4,192,1 57,1 7 
2 3 50 DATAI 92,1 89,5,1 92,1 57,1 8,1 92,1 04 
2 360 DATA74,72,76,4 6,1 93,104,74,72,1 76 
2 370 DATA8,254,1 7,1 92,20 8,3,2 54,1 8,1 92 
2380 DATAI 0 4,74,1 76,5,1 69,1 , 1 53,25,1 92 
2390 DATA200,232,232,224,4,240,3,76,91 
2400 DATAI 92,238,27,1 92,1 08,29,1 92 
2410 DATA35994:REM*CHECKSUM* 

2420 REM 

24 30 DATAI 2,1 56,1 52,9 8,1 27,3 5,1 7,2 55 
2440 DATAI 96,1 1 ,255,2 32,103,255,243,31 
24 50 DATAI 27,1 24,1 4,62,56,30,62,60,28 
2460 DATA255,156,28,190,156,31,255,252 
2470 DATAO,62,0,0,127,0,0,99,0,0,193 
24 80 DATAI 28,0,1 2 8,1 28,0,65,0,0,62,0 
2490 DATAO,0,0,0,0,0,0,0,0 
2500 REM 

2 510 DATAO,0,0,1 5,255,224,1 8,1 70,1 44,1 9 
2520 DATA255,!44,13,85,96,15,255,224,24 
2530 DATA254,48,48,0,24,96,254,12,99 
2540 DATA255,!40,103,17,204,62,68,248 
2550 DATA30,0,240,3,57,128,3,255,128,3 
2 560 DATAI 99,1 28,1 ,2 55,0,0,108,0,0,108 


: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 


26 
75 
66 
1 33 
93 
1 81 
1 81 
1 82 

36 

43 

93 
85 
75 
35 

1 85 

44 

94 
1 48 
1 38 
1 35 
1 1 6 
1 98 
1 80 
1 72 

37 
1 22 

73 
1 39 
0 
8 

249 
1 71 
1 56 
1 84 
44 
80 
1 1 4 
1 1 2 


2570 DATAO,1,239,0,3,239,128 
2580 REM 

2590 DATAO,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
2 600 DATAO, 0,0,0,32,0,0,32,0,0,32,0,0 
2610 DATA32,0,1 ,36,0,1,36,0,1,4,0,1,56 
2620 DATAI 2 8,1 ,1 24,1 28,0,254,1 28,0,254 
2630 DATAO,0,124,0,0,56,0,0,0,0,0,0,0 
2640 RESTORE 


: r em 139 
: rem 179 
:rem 34 
: rem 1 
:rem 77 
: rem 115 
: rem 7 
: r em 240 
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Simon's Dedalo 


«O 

Simon’s BASIC-Joystick V 


Fra i tanti giochi che un foglio di 
carta a quadretti ha suggerito, que¬ 
sto è sicuramente uno dei più av¬ 
vincenti, se non altro perché richie¬ 
de spesso qualche piccolo sforzo 
deduttivo. Molto meno noto della 
classica Battaglia Navale, anche 
Dedalo nella sua veste tradizionale 
si gioca fra due giocatori ognuno 
dei quali deve districarsi nel labi¬ 
rinto pensato dall'avversario. 

In questa versione per C64 + Simo- 
n ’s Basic è il computer ad architet¬ 
tare il labirinto che tu dovrai per¬ 
correre nel minor numero di mos¬ 
se. 

LE REGOLE 

Percorrere il labirinto significa spo¬ 
starsi da una casella all’altra all’in¬ 
terno di una griglia 7x7 nelle quat¬ 
tro direzioni Nord, Est, Sud e 
Ovest. Tale movimento non è pos¬ 
sibile quando il lato comune a due 
caselle fra cui avviene il passaggio 
risulta sbarrato. 

Il labirinto è strutturato in modo ta¬ 
le che ogni zona della griglia possa 
essere in qualche modo raggiunta. 
Ad ogni mossa puoi operare due 
diverse scelte: 

1) muoverti partendo dall’ultima 
casella raggiunta, spostandoti di 
quante caselle vuoi senza alcun li¬ 
mite, tenendo però presente che 
se incontri una barriera rimarrai fer¬ 
mo al punto di partenza senza che 
ti sia dato modo di sapere in quale 


punto esatto del tratto percorso 
hai incontrato l’ostacolo. 

2) testare una casella,- riceverai 
come informazione il numero dei 
lati transitabili della casella in que¬ 
stione, tenendo presente che i lati 
appartenenti al perimetro esterno 
sono ovviamente sempre sbarrati 
così come pure tre lati su quattro 
della casella di partenza e di quella 
d’arrivo. 

COME GIOCARE 

Al RUN dopo aver aspettato circa 
mezzo minuto la realizzazidone 
del labirinto, ti si presenterà lo 
schermo di gioco composto da tre 
riquadri. 

Il primo occupa tutta la metà sini¬ 
stra dello schermo e contiene la 
griglia di gioco. In corrispondenza 
di due caselle si accenderanno due 
sprites: uno a forma di "X" segnala 
la casella di partenza e col proce¬ 
dere del gioco si muoverà lascian¬ 
do una scia verde occupando 
sempre l’ultima posizione acquisi¬ 
ta,- l’altro di forma quadrata indica 
la casella di arrivo. Inutile testare 
queste due caselle perché hanno 
sempre un solo lato transitabile. 
Nel secondo riquadro, appariran¬ 
no di volta in volta i vari messaggi 
di gioco. 

Il terzo riquadro contiene elencate 
e numerate dall’alto in basso le 5 
opzioni di gioco: TEST, MOVE, 
LIST, DRAW e STOP. Di queste 5 


\ 
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possibilità solo le prime due (TEST 
e MOVE) sono reali mosse disioco 
e come tali verranno contessiate. 
Effettua la tua scelta muovendo il 
joystick (porta 2) verso l’alto o ver¬ 
so il basso. La pressione del pul¬ 
sante di sparo ti proietterà poi nel¬ 
le diverse routine, che ora esami¬ 
niamo in dettaslio. 

1) Test 

Uno sprite-cursore si accende in 
corrispondenza dell'ultima casella 
occupata, muovilo con il joystick 
fino alla casella da testare e premi 
"fi renel quadro-messassi appa¬ 
rirà accanto al numero d’ordine 
della casella il suo numero di lati 
transitabili. 

2) Move 

Lo stesso sprite si attiva nella solita 
posizione: muovilo con il joystick 
e segna premendo il pulsante di 
sparo ogni passo del percorso che 
intendi provare. Quando pensi di 
aver finito spingi lo sprite oltre uno 
dei bordi della griglia e questo an¬ 
drà a posizionarsi sul quadro- 
messaggi dove nel frattempo è ap¬ 
parsa la scritta "fine”. A questo 
punto nel caso di una svista puoi 
ancora tornare sulla griglia muo¬ 
vendo il joystick in una qualsiasi 
direzione, altrimenti premi il pul¬ 
sante di "fire “. 

3) List 

Serve ad avere l'elenco delle casel¬ 


le già testate. Lo sprite-cursore si 
posiziona nella prima casella in al¬ 
to a sinistra e col joystick si può 
farlo scorrere lungo tutta la griglia: 
se passi su una casella già testata 
udirai un bip e la risposta al test 
apparirà nel solito quadro. Si torna 
al menu principale premendo " fi- 
re * 

4) Draw 

Con questa opzione hai la possibi¬ 
lità di evidenziare i lati delle caselle 
che hai individuato come sbarrati. 
Uno sprite-cursore diverso dal pre¬ 
cedente appare sulla casella a cui 
sei arrivato,- portalo con il joystick 
fin dove vuoi, premi il pulsante di 
sparo e lo sprite diventerà rosso: 
a questo punto muovi il joystick 
verso il lato che vuoi evidenziare. 
In caso di errore ripeti la medesima 
operazione verso il segmento che 
devi cancellare. Per uscire sposta 
lo sprite all’esterno della griglia. 

5) Stop 

Interrompe il gioco e mostra il labi¬ 
rinto elebarato dal computer. 
Un'ultima avvertenza: se utilizzi 
STOP BUG e hai per caso dato un 
RUN STOP+RESTORE per disabili¬ 
tarlo, puoi sempre rimetterlo in 
esecuzione digitando: 

SYS PEEK (56)*256 


1 PRINTCHR$(14 7)CHR$(153)CHR$(14) ; :C0L0UR5,5 : rem 45 

5 DIM D(48,4) ,W(4) ,P(48) ,DP(4) ,B(48) ,C$(5) : rem 58 

10 FORN=1T04:READW(N) :NEXT: DATA-7,1 ,7,-1 : rem 162 

1 5 A$=CHR$(2) :FORN=!T05:READC$(N) :C$(N)=A$+C$(N) :NEXT 

: rem 41 

16 DATATEST,MOVE,LIST,DRAW,STOP : rem 88 

20 VOLI5:WAVEl , 001 00000:ENVELOPEl ,0,3,0,0 : rem 64 

30 Mi$="C2D2E2F2G2A2B2C3D3E3F3G3A3B3C4D4E4F4G4A4B4C5D5E5F 
5G5A5B5" : rem 152 
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3 5 Mi $ = Ml$ + "C6D6EbF6G6A6B6C7D7E7 F7G7A7B7" 

40 PRINTCHR$(153) ; :FORN = OTOl19:PRINT" DEDALO 


fi 


: rem 11 
: NEXT 
: r em 153 

45 BCKGNDS5,1,1,1 :rem 177 

50 PRINTCHR$(18)CHR$(144);:PRINT AT(5,9)" SI STA FORMANDO 

1 72 
85 
1 58 


ii 


it 


: rem 
: rem 


IL LABIRINTO , 

55 PRINT AT(7,13)" C'E' DA ASPETTARE UN PO' 

60 FORN=1TOl0 :PT=RND(1)* 4 9 :NEXT : rem 

6 5 GOSUB3 0000 :PRINTCHR$(147) ; :GOSUB20000 :GOSUB25000 

: rem 

70 FORN = 0 TO 4 8 : B ( N )=0 : NEXT : B ( AR)=1 :B(PT)=1 
75 K = AR:GOSUBl 8200 :Y=B*24 + 59 :X=A*24 + 33 
80 MMOB6,X,Y,X,Y,0,0:MOB SET6,16,7,0,1 
85 K = PT:GOSUBl 8200 : Y=B*24 + 59 : X=A*24 + 33 
90 MMOB7,X,Y,X,Y,0,0:MOB SET7,17,6,0,0 

97 REM"[<A>]{ 30 *}[<S>] 

98 REM'M 6 SPAZlTGESTIONE JOYSTICK{ 7 SPAZI 

99 REM"[<Z>] { 30 M[<X>] 

100 C=3:FORN=0TO4:CHARl07,N*24+18,177+N,C,2:C=1 


110 FORN=0TO4:TEXTl20,N*24+23,C$(N+l),1,1,7:NEXT 

1 20 TEXTl0 8,0,A$ + "SCEGLI",3,1,7:S = 0 
130 J=JOY: IFJ> = 128THEN200 
135 S1=S 

140 IFJ=1THENS = S-1 :GOTOl70 
150 IFJ=5THENS=S+1:GOTOl70 
160 GOTOl30 
170 IFS<0THENS=4 
175 IFS>4THENS=0 

180 CHARl07,S*24 + 1 8,1 77+S,3,2 :CHARl 07,Sl*24 + 18,l77+Sl , 

:rem 241 

190 M$=CHR$(14 7)+"1"+MID$("C4D4E4F4G4",S*2 + l ,2)+CHR$(134) 
:MUSIC5,M$:PLAY1 :rem 201 

195 GOTOl30 : rem 108 

2 00 TEXTl08,0,A$ + "SCEGLI",0,1,7 :TEXTl20,S*24 + 23,C$(S+l) ,3 


: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
NEXT 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 


43 
1 98 
168 
124 
1 86 
1 26 
84 
255 
98 


250 
21 9 
1 57 
247 
1 73 
87 
90 
1 00 
21 7 
224 
1,2 


,1,7 

205 MUSIC5,CHR$(147)+"1C5"+CHR$(134):PLAYl 

210 IFS<2THENMS=MS+1:GOSUBl8000 

220 ONS+1GOTOl000,5000,15000,10000,17000 

997 REM"[<A>]{ 29 M[<S>] 

998 REM'M 12 SPAZ I} TEST { 13 SPAZI}- 

999 REM" {<Z>] { 29 M[<X>] 

1000 S=P:K=S 

1010 GOSUBl 8200 :Y=B*24 + 59:X = A*24 + 33 
1020 MMOBO,X,Y,X,Y,0,0:MOB SET0,19,5,0,0 
1030 GOSUBl8300 


: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 

: rem 


2 
53 
1 58 
46 
205 
1 70 
21 9 
1 82 
1 69 
203 

64 


1040 ONJGOTOl050,1050,1060,1060,1070,1070,1080,1080,1200 


1 0 50 Y = Y-24:IFY<59THENY=59:GOTOl03 0 
1055 S=S-7:GOTOl100 

1 060 X = X+24 :1FX>177THENX=177 :GOTOl03 0 
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rem 

rem 

rem 

rem 


68 
1 26 
71 
221 


1 065 

S=S+1:GOTOl100 

: rem 

64 

1 070 

Y=Y+2 4:IFY>203THENY=203 :GOTOl 030 

: rem 

206 

1 075 

S=S+7:GOTOl100 

: rem 

71 

1 080 

X=X-24:IFX< 33THENX=33:GOTOl030 

: rem 

1 09 

1085 

S = S-1 

: rem 

1 5 

1 1 00 

RLOGMOB0,X,Y,0,30:GOTOl030 

: rem 

43 

1 200 

F=0:FORN=lT04:IFD (S, N)>=0THENF=F+1 

: rem 

84 

1 21 0 

NEXT:B(S)=F:Q=48+F 

: rem 

75 

1 21 5 

S$ =STR$(S) :TEXTl04 f 162,S$,1,1,7:CHARl37,1 

62,Q,3, 

1 : PA 


USE2 

: rem 

1 78 

1 220 

MOB OFFOrGOSUBl81OOrGOTOl00 

: rem 

1 02 

4997 

REM"[<A>]{ 28 *}[<S>] 

: rem 

65 

4998 

REM"-{ 12 SPAZI}MOVE{ 12 SPAZI}- 

: rem 

21 3 

4999 

REM"[<Z>]{ 28 *}[<X>] 

: rem 

79 

5000 

S=P:C=0:P(C)=S:K=S 

: rem 

82 

5005 

GOSUBl 8200 :Y=B*24 + 59:X=A*24 + 33 

: rem 

1 77 

501 0 

MMOBO,X,Y,X,Y,0,0:MOB SET0,19,5,0,0 

: rem 

206 

501 5 

CHARl07,157,173,1,2:TEXTl18,162,A$+"FINE" 

rMr8 




: rem 

234 

5020 

GOSUBl8300 

: rem 

67 

5040 

ONJGOTO50 50,50 50,50 60,50 60,50 70,50 70,50 80 

,5080,5200 



: rem 

1 08 

5050 

Y = Y-24:IFY< 59THEN53 00 

: rem 

1 5 

5055 

S=S-7:GOT05100 

: rem 

79 

5060 

X=X+24:IFX>177THEN5300 

: rem 

62 

5065 

S = S+1 : GOTO5100 

: rem 

72 

5070 

Y=Y+24:IFY>203THEN5300 

: rem 

56 

5075 

S=S+7:GOT05100 

: rem 

79 

5080 

X=X-24:IFX< 33THEN5300 

: rem 

7 

5085 

S=S-1:GOTO5100 

: rem 

76 

51 00 

RLOGMOBO,X,Y,0,30:GOT05020 

: rem 

50 

5200 

IFS = P(C)THEN50 2 0 

: rem 

1 92 

521 0 

K=S:GOSUBl 82 00:Y1=B*2 4+9 :XI=A*1 2+5 

: rem 

189 

521 5 

MUSIC5,CHR$(147)+"1G5"+CHR$(134):PLAY1 

: rem 

11 1 

5220 

C=C+1 :P (C ) =S : PLOTXl ,Yl , 3-.GOTO502 0 

: rem 

231 

5300 

RLOCMOBO,236,205,0,10 

: rem 

1 21 

5305 

CHARl07,157,173,3,2 

: rem 

208 

531 0 

GOSUBl8300 

: rem 

69 

5320 

IF J = 9 THE N 5 3 5 0 

: rem 

21 

5330 

K=S:GOSUBl 8200 :Y=B*24 + 59 :X=A*24 + 33 

: rem 

1 99 

5340 

RLOCMOBO,X,Y,0,10:CHARl07,157,173,1,2:GOTO5020 




: rem 

1 1 3 

5350 

IFC=0THEN5300 

: rem 

3 

5355 

MOB OFFOrGOSUBl8100 

: rem 

11 1 

5360 

F=0:FORN=OTOC-1:K=P(N)rGOSUBl8200 :Yl=B*24+9 :XI=A*12+ 


5rPLOTXl,Yl,0 

: rem 

128 

5365 

M$=CHR$(147)+"1"+MID$(M1 $,N*2+ 1 ,2)+CHR$(134) rMUSIC5, 


M$ rPLAYl 

: rem 

254 

5370 

FORI=1T04rIFD(P(N),I)=P(N+1)THENF=F+1 

: rem 

226 

5380 

NEXT r NEXT r K=P(N) rGOSUBl 8200rYl=B*24 + 9rXl = 

A*12+5: 

PLOT 


XI , Y1,0 

: rem 

1 03 


20 




53 85 M$=CHR$(14 7)+"1"+MID$(Mi $,N*2 + l ,2) +CHR$(134) :MUSIC5, 
M$:PLAYl : rem 0 

5390 IFF=CTHEN5500 :rem 31 

5400 TEXTl0 8, 1 61 , A$ +CHR$(18)+"ERRORE",2,1,7 :rem 62 

5410 MUSIC4,CHR$(147)+"1D4"+CHR$(137)+"C4"+CHR$(134)+ "B3" 
+CHR$(134)+"A3"+CHR$(140) : rem 178 

5420 PLAYl:GOTO5580 : rem 119 

5500 TEXTl 08, 1 61 , A$+CHR$(18)+”ESATTO" ,2, 1 , 7 : rem 64 

5510 MUSIC4,CHR$(147)+ "1C4"+CHR$(137)+"E4"+CHR$(134)+ "G4" 
+CHR$(134)+"C5"+CHR$( 1 40) : rem 190 

5515 PLAYl:MOB OFFO :rem 90 

5520 FORN=OTOC-1 :K=P(N) :GOSUBl 82 00 : rem 24 

5530 Yl=B*24 + 1 9:X1=A*12+9 :rem 45 

5 54 0 K = P(N+1 ) :GOSUBl 82 00 :Y2=B*24 + 19:X2 = A*12 + 9 :Y=B*24 + 59 : X 
= A*24 + 33 : rem 94 

5550 RLOCMOB7, X , Y , 0 ,30 : rem 8 

5560 LINEX1,Yl,X2,Y2,2 :NEXT:P=P(N) : rem 49 

5570 IFP = ARTHENF$ =A$ + "VINTO": Fi$=A$+"IN":GOTOl7100 

: rem 163 

5580 GOSUBl8100:GOTOl00 :rem 80 

9997 REM" [<A>] { 28 M[<S>] :rem 70 

9998 REM"_-{ 12 SPAZl}DRAW{ 12 SPAZIÒ :rem 209 

9999 REM" [<Z>] { 28 M[<X>] :rem 84 

1 0000 S=P:K=S:GOSUBl 8200 :Y=B*24+ 59 :X=A*24 + 33 :rem 7 

1 0010 CHARl 07, 1 57,1 73,1 , 2:TEXTl18,162,A$ + "FINE",1,1 ,8 

: rem 17 

1 0020 MMOBl ,X,Y,X,Y,0,0 :MOB SETI ,18, 5,0,0 :rem 252 

10030 GOSUBl8300 :rem 112 

1 00 50 ONJGOTOl 0060,1 0060,1 00 70,1 00 70,1 00 80,1 00 80,1 00 90,1 0 
090,10300 :rem 46 

1 0060 Y = Y-24:IFY< 59THENY= 5 9 :GOTOl 02 00 : rem 222 

1 0065 S=S-7:GOTOl0100 : rem 168 

1 0070 X=X+24:IFX>177THENX=177 :GOTOl 0200 : rem 61 

10075 S=S+1:GOTOl0100 :rem 161 

10080 Y=Y+24:IFY>203THENY=203:GOTOl0200 :rem 46 

1 0085 S=S+7:GOTOl0100 : rem 168 

1 0090 X = X-2 4 :1FX< 3 3THENX=33:GOTOl 0200 :rem 205 

1 0095 S=S-1 : rem 64 

10100 RLOCMOBl ,X,Y,0,10 :GOTOl 003 0 :rem 138 

10200 RLOCMOBl,236,205,0,10 :rem 165 

10210 CHARl07,157,173,3,2 :rem 247 

10230 GOSUBl8300 :rem 114 

1 0240 IFJ09THENCHAR1 07,1 57,1 73,1 , 2:GOTOl 01 00 : rem 24 

1 0250 MOB OFFl :GOSUBl8100:GOTOl00 : rem 154 

1 0300 MMOBl ,X,Y,X,Y,0,0:MOB SETI ,18,4,0,0 : rem 252 

10310 GOSUBl 8300 :K=S:GOSUBl 8200 : rem 59 

1 0320 ONJGOTOl 0330,10330,1 0340,10340,10350,10350,10360,10 
360 :rem 14 

1 0325 GOTOl0310 : rem 41 

1 03 30 PY=B*2 4+6:PX=A*12+4 :AX=PX+1 0 :AY=PY:Z = TEST(PX+1,PY): 

GOTOl0380 :rem 4 
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1 0340 

PY=B*24+7:PX=A*12 + 15 :AX=PX:AY=PY+2 2:Z=TEST(PX,PY+1) 


.'GOTO! 03 80 

: rem 

59 

1 0350 

PY=B*24+30:PX=A*12+4:AX=PX+10:AY=PY:Z=TEST(PX+1, 

PY) 


:GOTOl0380 

: rem 

51 

1 0360 

PY=B*24+7:PX=A*12 + 3 :AX=PX:AY=PY+22:Z = TEST(PX,PY+1) : 


GOTOl0380 

: rem 

1 0 

1 0380 

C=3:IFZ=3THENC=1 

: rem 

34 

1 0390 

LINEPX,PY,AX,AY,C:PAUSE.5:MOB SETI ,18,5,0, 

0 :GOTOl00 


30 

: rem 

1 

1 4997 

REM"[<A>]{ 27 *}[<S>] 

: rem 

1 78 

1 4998 

REM"-{ 11 SPAZI}LIST{ 12 SPAZI}- 

: rem 

1 1 

1 4999 

REM"[<Z>]{ 27 *}[<X>] 

: rem 

1 92 

1 5000 

S=0:K=S:GOSUBl 82 00 :Yl=B*2 4 + 59:Xl=A*2 4 + 33 

: rem 

78 

1 501 0 

MMOBO,X1,Y1,Xl,Yl,0,0:MOB SET0,19,5,0,0 

: rem 

1 95 

1 5020 

GOTOl5120 

: rem 

42 

1 5030 

GOSUBl 8 3 00 :GOSUBl8100 

: rem 

41 

1 5040 

ONJGOTOl 50 50,1 50 50,1 50 60,1 50 60,1 50 70,1 50 70 

, 1 5080 

,15 


080,15200 

: rem 

86 

1 5050 

S=S-7:IFS<0THENS=S+7 

: rem 

62 

1 5055 

GOTOl5100 

: rem 

48 

1 5060 

S=S+1 :IFS>4 8THENS = 48 

: rem 

44 

1 5065 

GOTOl5100 

: rem 

49 

1 5070 

S=S+7:IFS>4 8THENS = S-7 

: rem 

1 26 

1 5075 

GOTOl5100 

: rem 

50 

1 5080 

S=S-1:IFS<OTHENS=0 

: rem 

1 82 

1 51 00 

K = S:GOSUBl 82 00 :Yl=B*2 4 + 5 9:X1 =A*24+33 

: rem 

85 

15110 

RLOCMOBO,X1,Yl,0,1 

: rem 

90 

1 51 20 

IFB(S)=0THENQ=4 5 :GOTOl 51 50 

: rem 

1 1 2 

1 51 30 

Q= 4 8+B(S) :MUSIC5,CHR$(147)+"1A5"+CHR$(134) 

: PLAY1 




: rem 

21 9 

1 51 50 

S$ = STR$(S) :S$ = RIGHT$(S$,LEN(S$)-1 ) 

: rem 

250 

1 51 60 

TEXTl10,162,S$,2,1,7:CHARl 38,162,Q,3,1 :GOTOl 50 3 0 



: rem 

1 84 

1 5200 

MOB OFFO:GOSUBl8100:GOTOl00 

: rem 

1 53 

1 6997 

REM"[<A>]{ 27 *}[<S>] 

: rem 

1 80 

1 6998 

REM"-{ 11 SPAZI}STOP{ 12 SPAZI}- 

: rem 

23 

1 6999 

REM"[<Z>]{ 27 *}[<X>] 

: rem 

1 94 

1 7000 

F$ =A$ + "ARRESO":F1$=A$ + "DOPO" 

: rem 

87 

1 71 00 

BLOCK98,0,159,199,0 

: rem 

39 

1 7400 

TEXTl 00,30,F$,3,1 , 7 

: rem 

22 

1 741 0 

TEXTl00,50,Fi$,3,1,7 

: rem 

74 

1 7420 

MS$ = STR$(MS) :MS$=RIGHT$(MS$,LEN(MS$)- 1) 

: rem 

125 

1 7430 

TEXTl00,70,MS$,3,1,7 

: rem 

1 1 9 

1 7440 

TEXTl 00,90,A$ + "MOSSE",3,1 , 7 

: rem 

1 7 

1 7500 

FORN = 0 TO 48:FORI = lT04 

: rem 

93 

1 751 0 

IFD(N,I)< 0THEN1 7550 

: rem 

1 30 

1 7520 

K=N:GOSUBl 8200 :Y=B*24 + 1 9:X=A*1 2+9 

: rem 

1 94 

1 7530 

K = N+W(I) :GOSUBl 82 00 :Yl=B*2 4 + 19:Xl=A*l2 + 9 

: rem 

65 

1 7540 

LINEX,Y,Xl,Y1,2 

: rem 

207 

1 7550 

NEXT:NEXT:TEXT0,192,A$+"FIRE-BUTTON PER CONTINUARE" 


,3,1,6 

: rem 

. 93 
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1 7560 GOSUBl 3300 : IFJ09THEN1 7560 :rem 119 

1 7570 MOB OFF6 :MOB OFF7 :NRM:COLOUR5,5 :rem 232 

17580 PRINTCHR$(153)CHR$(14); :rem 111 

1 7585 BCKGNDS5,1,1,1 : rem 82 

17590 PRINTCHR$(18)CHR$(144) ; :PRINT AT(8,9)"{ 2 SPAZl}VUO 
I GIOCARE ANCORA?{ 2 SPAZI}"; :rem 109 

1 7600 PRINT AT(16,12)" Sl{ 2 SPAZl}NO " : rem 228 

17610 GETA$: IFA$ <>"S"ANDA$ <>"N"THENi 7610 : rem 245 

1 7620 IFA$ = "S"THENRUN : rem 236 

1 7630 PRINTCHR$(14 7) : END : rem 141 

1 7997 REM" [ < A> ] { 27 *}[<S>] : rern 181 

1 7993 REM" { 7 SPAZ iTROUTINE VARIE} 7 SPAZI : rem 111 

1 7999 REM" [<Z> ] { 27 M[<X>] : rem 195 

1 8000 MS$ =STR$(MS) :MS$=RIGHT$(MS$,LEN(MS$)- 1) : BLOCK138,19 
0,1 59,1 99,0 : rem 117 

18010 TEXTl 38,1 92,MS$,3,1,7 : rem 178 

1 3020 RETURN : rem 219 

1 80 99 REM"---,- : rem 42 

18100 BLOCK! 05,153,153,176,0 :RETURN : rem 197 

18199 REM"- : rem 43 

1 8200 B=INT(K/7) :A=K-7*B: RETURN : rem 84 

1 8299 REM--- : rem 55 

1 8300 J=JOY:IFJ = 0THENl 8300 : rem 32 

18310 IFJ>=128THENJ=9 :rem 219 

1 8320 RETURN : rem 222 

1 9997 REM"[<A>] { 27 *}[<S>] : rem 133 

1 9998 REM'M 6 SPAZlTDISEGNO GRIGLIA} 6 SPAZI}^ : rem 220 

1 9999 REM" [<Z>]{ 27 M[<X>] : rem 197 

20000 HIRES 0,0:MULTI11 ,5,1 : rem 2.22 

2001 0 FORN =1TO 3 : READA,B,C,D,E : rem 193 

20020 FORV=0TOE:RECA+V*2,B+V*3,C,D,2 :NEXT : rem 186 

20030 BLOCKA+1 ,B+l,A+C-1,B+D-1,0:NEXT : rem 16 

20035 DATA0,0,90,180,3,104,12,50,122,2,104,152,50,25,2 

:rem 96 

20040 COLOURO,0:FORN=0TO7 :rem 12 

20050 LINE3,6+N*24,86,6+N*24,1 : rem 31 

20060 LINE3+N*12,6,3+N*12,174,1 :rem 69 

20070 NEXT : rem 56 

20080 TEXT99,1 92,A$+"MOSSA",1,1,7 : rem 25 

2 00 90 RETURN : rem 219 

24997 REM" [<A>] { 27 M[<S>] : rem 179 

24998 REM"--} 10 SPAZI}SPRITES{ 10 SPAZl}^ : rem 250 

24999 REM" [<Z>] { 27 M[<X>] : rem 193 

25000 DESIGNO, 1 088 + 491 52 : rem 14 

25001 @BBBBBB.BBB_ : rem 60 

25002 0BBBBBBB.BBBB_ : rem 101 

25003 @BBBBBBBB.BBBBB_ :rem 142 

25004 gBBBBBBBBB.BBBBB. : rem 163 

25005 @BBBBBBBBBB_BBBBB. : rem 184 

25006 @BBBBBBBBBBB. BBBBB. : rem 205 

o S007 @ . BBBBBBBBBBBBBBB. : rem 186 
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25008 

25009 
2501 0 
2501 1 
2501 2 
2501 3 
2501 4 
2501 5 
2501 6 
2501 7 
2501 8 
2 501 9 

25020 

25021 

25030 

25031 

25032 

25033 

25034 

25035 

25036 

25037 

25038 

25039 

25040 

25041 

25042 

25043 

25044 

25045 

25046 

25047 

25048 

25049 

25050 

25051 

25060 

25061 

25062 

25063 

25064 

25065 

25066 

25067 

25068 

25069 

25070 

25071 

25072 

25073 

25074 
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@BBB.BBBBBB . . . . 

l§. 


DESIGNO,1216+49152 
(3 BBBBBBB BBBBB BBBBBBBB . . . 
@BBBBBBBBBBBBBBBBBBBB... 
@BBBBBBBBBBBBBBBBBBBB... 

@ BBBBB.BBB . . . 

@BBBBBB.BBB. . . 

@BBB . BBB.BBB. . . 

@BBB. . BBB.B. . . BBB. . . 

@BBB...BBB...B....BBB... 

@BBB. . . . BBB. B.BBB. . . 

@BBB.BBB.BBB. . . 

@BBB.BBB.BBB. . . 

@BBB.B. BBB. . . 

@BBB_B. . .BBB. . 

@BBB . . . B.BBB. 

@BBB.BBB. BBB. . . 

@BBB.BBBBBB. . . 

(3BBB.BBBBB. . . 

(§ BBB BBB BBBBB BBBBBBBBB . . . 
@BBBBBBBBBBBBBBBBBBBB... 
@ BBBBBBBBBBBBBBBBBBBB. . . 


BBB. . . . 
BBB. . . . 
BBB. . . . 


@ . 

DESIGNO,1152+49152 


@.BB. 

@.BB. 

(3 . .B .BBBB.B 

( 3 . . . B. . . .BBBB. . . . B. 
( 3 . . . ,B. .BBBBBB. .B. . 

@.BBBB. .BBBB. . . 

(3.BBB. . . . BBB. . . 

@....BBBB....BBBB.. 


(3 . . BBBB. . B. . B. . BBBB. 

. BBBBBB. ...BB. .. .BBBBB. . .. 
(3BBBBB. . . .BB. . . .BBBBB. . . . 

@..BBBB. .B. .B. .BBBB. 

(3. . . .BBBB. . . .BBBB.. . . 

<a.BBB_BBB. 


rem 

1 47 

rem 

1 08 

rem 

1 00 

rem 

101 

rem 

1 02 

rem 

143 

rem 

1 84 

rem 

205 

rem 

1 86 

rem 

1 67 

rem 

148 

rem 

109 

rem 

61 

rem 

1 38 

rem 

1 0 

rem 

27 

rem 

28 

rem 

29 

rem 

46 

rem 

67 

rem 

68 

rem 

89 

rem 

90 

rem 

91 

: rem 

63 

: rem 

64 

: rem 

85 

: rem 

86 

: rem 

87 

: rem 

68 

: rem 

69 

: rem 

50 

: rem 

35 

: rem 

36 

: rem 

28 

: rem 

1 41 

: rem 

1 2 

: rem 

1 82 

: rem 

1 83 

: rem 

8 

: rem 

9 

: rem 

50 

: rem 

51 

: rem 

1 2 

: rem 

53 

: rem 

94 

: rem 

1 26 

: rem 

1 27 

: rem 

88 

: rem 

49 

: rem 

1 0 
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25075 


: rem 

51 

25076 

@ . ...B. .BBBBBB. .B. 

: rem 

52 

25077 


: rem 

1 3 

25078 


: rem 

1 4 

25079 


: rem 

1 91 

25080 


: rem 

1 83 

25081 

@. 

: rem 

1 44 

2 5090 

DESIGNI,1024+49152 

: rem 

1 4 

25091 

@ BBBBBBBBBB. . 

: rem 

49 

25092 

0BBBBBBBBBB.. . 

: rem 

50 

25093 

@ BBBBBBBBBB. . 

: rem 

51 

25094 

@BBCCCCCCBB.. 

: rem 

58 

25095 

0BBCCCCCCBB.. 

: rem 

59 

25096 

@ BBCCCCCCBB. . 

: rem 

60 

25097 

@BBCCCCCCBB.. 

: rem 

61 

25098 

@BBCCCCCCBB.. 

: rem 

62 

25099 

@BBCCCCCCBB. . 

: rem 

63 

251 00 

@BBCCCCCCBB.. 

: rem 

46 

251 01 

@BBCCCCCCBB.. 

: rem 

47 

251 02 

@BBCCCCCCBB.. 

: rem 

48 

251 03 

@BBCCCCCCBB.. 

: rem 

49 

251 04 

0 BBCCCCCCBB.. 

: rem 

50 

251 05 

@BBCCCCCCBB.. 

: rem 

51 

251 06 

0BBCCCCCCBB.. 

: rem 

52 

251 07 

@BBCCCCCCBB.. 

: rem 

53 

251 08 

@ BBBBBBBBBB . . 

: rem 

48 

251 09 

@ BBBBBBBBBB .. 

: rem 

49 

251 1 0 

@ BBBBBBBBBB . . 

: rem 

41 

251 1 1 

@. 

: rem 

. 98 

251 20 

CMOB2,10:RETURN 

: rem 

244 

29997 

REM"[<A>]{ 27 *}[<S>] 

: rem 

1 84 

29998 

REM"-{ 4 SP AZ iJCREAZ IONE LABIRINTO { 4 SPAZI }- 

: rem 

25 

29999 

REM"[<Z>]{ 27 *}[<X>] 

: rem 

1 98 

30000 

FORN = 0TO4 8 : FORI = 1T04:D(N,I)=99:NEXT:NEXT 

: rem 

1 34 

3001 0 

FORN = 0TO6:D(N,1)=-2:D(42+N,3)=-2 :D(7*N,4) = 

-2:D (6 + 7* 


N,2)=-2:NEXT 

: rem 

250 

30020 

PT=INT(RND(1)*49):P=PT:P(P)=1 

: rem 

1 9 

30030 

F=0:FORN = lT04:IFD(P,N)<>-2THENF=F++l :DP(F) 

=N 

: rem 

205 

30040 

NEXT:F=INT(RND(1)*F+1):J=DP(F) 

: rem 

77 

30050 

K=-2:GOSUB31000:P=P+W(J):P(P)=1:K=-1 

: rem 

1 22 

301 00 

F=0:FORN = lT04:IFD(P,N)=99THENF=F+1 :DP(F) =N 

[ : rem 

11 8 

301 1 0 

NEXT:IFF=0THENC=0:GOT030200 

: rem 

247 

301 20 

F=INT(RND(1)*F+1):J=DP(F):GOSUB31000 

: rem 

1 29 

301 30 

P=P+W(J) :P(P)=1 :GOTO30100 

: rem 

241 

30200 

FORN=0TO48:IFP(N)THEN30230 

: rem 

1 33 

3021 0 

F=0:FORI = lT04:IFD(N,I)=-1THENF= F+l 

: rem 

1 04 

30220 

NEXT:IFFTHENC=C+1:B(C)=N 

: rem 

46 

30230 

NEXT:IFC=0THEN30500 

: rem 

21 5 

30240 

C= INT(RND(1)*C+1):C=B(C) 

25 

: rem 

1 1 6 















30250 

30260 

30270 

30280 

30290 

30500 

30505 

3051 0 

30520 

30525 

30530 

30540 

30550 

30560 

30570 

30580 

30590 

30600 

30610 

31 000 
31 01 0 
31 020 
31 030 


NEXT 


D (C,J) =C+W(J) : D (C+W ( J) ,M) =C 
P=C:P(P)=1 :GOTO30100 
FORN = 0TO4 8 :P(N)=0 :NEXT 

P=PT:C=1:FORN=1T04:IFD(P,N)<>-2THENF=N 

NEXT:P(P)=C:P= P+W(F):C=C+1 

P(P)=C:F = 0 :FORN = 1T04:1FD(P,N)<0THEN3 0 54 0 

IFP(P+W(N))THEN30540 

F= F+l :DP(F)=N 

NEXT:IFF=1THENP=P+W(DP(F)):C=C+1:GOTO305 

IFFTHEN30600 

IFC > LTHENL=C: AR= P 

IFT=0THENP=PT:RETURN 

p=B ( 1) :C=P(P) :FORN=lTOT:B(N)=B(N+1):NEXT 
T=T-1 :G0T03 0 52 0 

T=T+F-1:FORN=T-F+2TOT:B(N)=P:NEXT 


FORN=lT04:M=N+2:IFM>4THENM=M-4 
IFN=JTHEND(P,N)=P+W(N):D(P+W(N),M)=P 
IFD(P f N) =99THEND(P,N)=K:D(P+W(N) ,M)=K 
NEXT:RETURN 


J : rem 

91 

: rem 

58 

l=M-4 


: rem 

51 

: rem 

1 6 

: rem 

206 

: rem 

1 84 

: rem 

206 

: rem 

108 

: rem 

203 

: rem 

203 

: rem 

1 6 

0 : rem 

1 36 

: rem 

250 

: rem 

1 75 

: rem 

201 

: rem 

222 

: rem 

1 77 

: rem 

1 49 

GOTO30520 

: rem 

209 

: rem 

204 

: rem 

21 9 

: rem 

234 

: rem 

80 


Attenti alle mine!! 

Joe si è appena trasferito nella sua 
nuova casetta in campagna, dove 
potrà finalmente godersi la natura 
senza preoccupazioni. 

Al momento di arare il suo nuovo 
campo Joe si accorge della presen¬ 
za di mine nel terreno, probabil¬ 
mente rimaste inesplose dall’ultima 
guerra mondiale. 

Allora, armatosi di un detector e 
chiamato un amico ad aiutarlo, si 
decide a trovarle e a disattivarle 
Perché non aiutarlo con questo di¬ 
vertente gioco per C64? L'amico di 


Joystick 

Joe è un grande imprudente e se¬ 
gue i movimenti del detector di 
Joe; rischiando di finire su una mi¬ 
na. 

Quindi muovendo il joystick per 
portare il detector sulla mina, è ne¬ 
cessario prestare molta attenzione 
perché l’assistente di Joe lo segue 
in ogni suo minimo movimento, so¬ 
lo che lo fa al contrario, per cui ad 
esempio se il detector si muove a 
destra, lui si muove a sinistra, se il 
detector si muove verso l’alto, lui 
si sposta verso il basso, e così via. 
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Per disattivare la mina che si trova hanno a disposizione 3 minuti 
sotto il detector si deve premere il esatti. 

tasto di fuoco del joystick , e per Ed ora buon divertimento e... buon 
disattivare più mine possibili si "disattivamento"!! 


1000 PRINTCHR$( 1 47) 

1 010 GOSUB2 570 

1020 GOSUBl850:REM L.M. RIDEF. CARATTERI 
1030 GOSUB2150:REM L.M. JOYSTICK 
1040 REM SPRITE NUMERO 0 E 1 
1050 REM MEMORIZZATI NEL BUFFER DI 

1 060 POKE2 04 0,1 3 :POKE2 04 1 r 1 4 
1 070 POKE53281 ,0 

1080 REM -DISTANZA CASUALE DELLE MINE- 

1090 REM -LETTURA DATI SPRITE- 

1100 FORI=832T0894:READA 

1110 POKEI,A:NEXT 

1120 FORI=896T0958:READA 

1130 POKEI,A:NEXT 

1 1 40 V= 53248 

1150 POKEV+39,2:REM COLORE SPRITE 0=ROSSO 

1160 POKEV+4 0 f 7 :REM COLORE SPRITE l=BIANCO 

1170 REM -LETTURA DATI PER LE MINE- 

1180 FORI = l 2 504TO12519 : READA 

1190 POKEI,A:NEXT 

1 200 GETA$: IFA$ = ""THENl200 

1210 GETJ$:IFG$<>"”THEN1210 

1220 PRINTCHR?(147) 

1230 REM -DISTANZA CASUALE DELLE MINE- 
1 240 FORI = 1T040 :SC=INT(RND(1 )*840) 

1 250 IFSC= 3 80RSC= 3 9THENI=I-1 :GOTOl290 
1 260 IFSC/20INT (SC/2) THENI = I-1 :GOTOl 290 
1 270 POKEl104+SC,27:POKE1104 + 1+SC,28 
1 2 80 POKE5 53 76+SC,5 :POKE55376 + 1 +SC , 5 
1290 NEXT 

1300 REM -LIMITI DEL MOVIMENTO- 
1310 POKE49152,24:POKE49153,0:REM X MINIMO 
1 320 POKE4 91 56,70 :POKE491 57,1:REM X MASSIMO 
1 330 POKE491 60,60:POKE49161,0:REM Y MINIMO 
1 340 POKE491 64,225:POKE491 65,0 : REM Y MASSIMO 
1 350 POKE491 68,1 : REM VELOCITA' DI LETTURA 
1 360 SYS4 91 83 : REM ABILITA LA ROUTINE 
1370 TI$="000000":REM TIMER 

1380 PRINTTAB(6)CHR$(145)CHR$(158)"PUNTEGGIO{ 2 

II 

1 390 POKE491 69,24 :POKE491 70,0 :REM X INIZIALE 
1400 POKE49173 f 229:POKE49174,0:REM Y INIZIALE 
1410 POKEV,24 :POKEV+1 , 229:POKEV+2,66:POKEV+l6,2 
1420 POKEV+3 , 50 


: rem 60 
: r em 16 
:rem 91 
: rem 143 
:rem 252 
CASSETTA 
: rem 131 
: rem 1 3 
:rem 86 
: r em 242 
: r em 34 
: rem 171 
: rem 33 
: r em 184 
: rem 35 
: rem 95 
: rem 253 
: rem 18 
: rem 235 
: r em 111 
: r em 41 
: rem 169 
: r em -24 7 
: rem 64 
: r em 2 39 
: rem 225 
: r em 16 
: rem 151 
: rem 247 
:r em 2 3 
: rem 11 
: r em 93 
: rem 149 
: rem 240 
: rem 1 50 
: rem 34 
: rem 171 
: rem 153 
:rem 204 
SPAZI}000 
: rem 2 5 
:r em 48 
: rem 95 
:rem 36 
:rem 59 
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148 
1 20 


1 430 POKEV+21 ,3:REM ACCENDE GLI SPRITE 0 E 1 : rem 148 

1440 REM -ROUTINE DI MOVIMENTO- :rem 120 

1450 POKEV+31,0:REM SETTA IL REGISTRO DI COLLISIONE 

:rem 91 

1460 PRINTCHR$(145);TAB(23)"TEMPO ";MID$(TI$,4,1);":";RIG 


rem 227 


HT$(TI$,2) 

1 470 IFVAL(TI$) > = 300THENGOSUB30 70 : REM ROUTINE l 

1480 X=PEEK(49169)+256*PEEK(49170) 

1490 Y=PEEK(49173)+256*PEEK(49174) 

1 500 N=3 4 5-X:M=279-Y 

1510 HN = INT(N/256) :LN=N-256*HN 

1520 HX=INT(X/256):LX=X-256*HX 

1 530 IFX< 90THENPOKEV+16,2:GOTOl550 

1540 POKEV+16,HX 

1550 POKEV,LX:POKEV+1,Y 

1 560 POKEV+2,LN:POKEV+3 ,M 

1 570 HC = PEEK(V+31) : REM CONTROLLO DI COLLISIONE 

1580 REM TRA UOMO E MINA 

1590 IFHC=20RHC=3THENG0T0l680 

1600 REM -CONTROLLO DEL BOTTONE DI FUOCO- 

1610 POKE49177,0 

1620 FB2=PEEK(49177) 

1 630 IFFB201 THEN1 450 
1640 REM TRA DETECTOR E MINA 
1650 IFHCAND1=1THENGOSUB2870 
1660 GOTO1450 
1 670 END 

1680 REM -COLLISIONE TRA UOMO E MINA- 
1690 PRINTCHR$(147) 

1700 REM -FA LAMPEGGIARE LO SCHERMO- 
1710 FOR1 = 1TO 5 

1720 GOSUB2760:REM ESPLOSIONE FINALE- 
1730 NEXT 

1740 REM -SPEGNE GLI SPRITE- 
1750 POKEV+21,0 

1 760 FORI = 1T09:PRINTCHR$(17) ; :NEXT 

1770 PRINTTAB(4)"HAI UCCISO IL TUO ASSISTENTE 

1 780 FORI = lT03:PRINTCHR$(17) ; :NEXT 
1790 PRINTTAB(12)"PUNTEGGIO ";YS 
1 800 FORI = 1T03:PRINTCHR$(17) ; :NEXT 
1810 PRINT"* PREMERE UN TASTO PER GIOCARE ANCC 


1 820 SYS4 9208 : REM DISABILITA LA ROUTINE DI LETTURA JOY$TI 

: rem 150 

1830 RUN1020 :rem 132 

1840 END :rem 164 

1850 REM -CARICATORE L.M. PER RIDEF. CARATTERI- :rem 252 

1 860 POKE52,48:POKE56,48:REM INIZIO MEMORIA BASIC 


: rem 

202 

: rem 

82 

: rem 

83 

: rem 

94 

: rem 

21 7 

: rem 

1 2 

: rem 

55 

: rem 

173 

: rem 

1 92 

: rem 

1 0 

: rem 

72 

: rem 

67 

: rem 

43 

: rem 

1 86 

: rem 

95 

: rem 

66 

: r em 

1 83 

: rem 

90 

: rem 

21 6 

: rem 

208 

: rem 

165 

: rem 

1 43 

: rem 

75 

: rem 

87 

: rem 

63 

: rem 

20 

: rem 

10 

: rem 

1 27 

: rem 

60 

: rem 

125 

i i » 

• • 

: rem 

135 

: rem 

1 21 

: rem 

1 98 

: rem 

11 4 

A. *" 

: rem 

240 

URA JOY£|TI 

: rem 

1 50 

: rem 

1 32 

: rem 

1 64 

: rem 

252 

IC 

: rem 

1 97 
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1 870 

FORI=828TO950:REM LOOP DI LETTURA 

: rem 

38 

1 880 

READJ :REM - 

: rem 

82 

1 890 

AA=AA+J : REM • CARICATORE • • 

: rem 

1 31 

1 900 

POKEI,J :REM BASIC 

: rem 

56 

1 91 0 

NEXT : REM - -- 

: rem 

37 

1 920 

READJ :REM-•• CHECKSUM. 

: rem 

1 63 

1 930 

IFAAOJTHENP RI NT" ERRORE NEI DATI RIDEF . 

CARATTERI 

" : E 


ND 

: rem 

1 83 

1 940 

SYS(828):REM ESEGUE 

: rem 

1 56 

1 950 

POKE53272,28:REM -PUNTA ALLA RAM- 

: rem 

145 

1 960 

DATAI 69,0,1 41 , 1 4,220,1 69,51 , 1 41 • 

: rem 

25 

1 970 

DATAI,0,162,0,189,0,208,157,0,48 

: rem 

70 

1 980 

DATAI 89,0,209 1 57,0,49,1 89,0,21 0 

: rem 

88 

1 990 

DATAI 57,0,50,1 89,0,21 1 , 1 57,0,51 

: rem 

24 

2000 

DATAI 89,0,212,1 57,0,52,189,0,21 3 

: rem 

63 

201 0 

DATAI 57,0,53,1 89,0,21 4,1 57,0, 54 

: rem 

1 7 

2020 

DATAI 89,0,215,1 57,0,55,232,224 

: rem 

226 

2030 

DATA255,208,203,173,255,208,141 

: rem 

25 

2040 

DATA255,48,173,255,209,141,255 

: rem 

244 

2050 

DATA4 9,1 73,255,21 0,1 41 , 255, 50 

: rem 

1 83 

2060 

DATAI 73,255,21 1 , 1 41 , 255,51 , 1 73 

: rem 

232 

2070 

DATA255,212,141,255,52,173,255 

: rem 

236 

2080 

DATA213,141,255,58,173,255,214 

: rem 

239 

2090 

DATAI 41 , 255,54,1 69,55,1 41 , 1 ,0 

: rem 

1 81 

21 00 

DATAI 69,1,141,14,220,169,28,141 

: rem 

1 7 

21 1 0 

DATA24,208,96 

: rem 

1 65 

21 20 

REM -CHECKSUM 

: rem 

41 

21 30 

DATAI 6246 

: rem 

227 

2140 

RETURN 

: rem 

1 67 

21 50 

REM -L.M. LETTURA JOYSTICK 

: rem 

95 

21 60 

DATAI 20,1 73,20,3,1 41 ,29, 1 92,1 73,21 

: rem 

1 61 

21 70 

DATA3,141,30,192,169,71,141,20,3 

: rem 

63 

21 80 

DATAI 69, 1 92,1 41 , 21 , 3,88,96,1 20,1 73 

: rem 

1 86 

21 90 

DATA2 9,1 92,1 41 , 20,3,1 73,30,1 92,1 41 

: rem 

1 68 

2200 

DATA21,3,88,96,173,27,192,205,16 

: rem 

81 

221 0 

DATAI 92,2 40,3,76,65,1 93,1 69,2 55 

: rem 

41 

2220 

DATAI 41 , 27,1 92,1 62,0,1 60,0,1 85,2 

: rem 

59 - 

2230 

DATA220,141,28,192,169,224,153,2 

: rem 

72 

2240 

DATA220,185,0,220,72,173,28,192 

: rem 

22 

2250 

DATAI 53,2,220,189,8,1 92,221,21,1 92 

: rem 

1 72 

2260 

DATAI 89,9,1 92,253,22,1 92,144,18 

: rem 

43 

2270 

DATAI 89,8,1 92,1 57,21 , 1 92,1 89,9, 1 92 

: rem 

206 

2280 

DATAI 57,22,1 92,1 04,74,72,76,1 62 

: rem 

38 

2290 

DATAI 92,104,74,72,1 76,1 3,22 2,21 

: rem 

27 

2300 

DATAI 92,189,21,1 92,201,255,208,3 

: rem 

76 

231 0 

DATA222,22,192,189,21,192,221,12 

: rem 

67 

2320 

DATAI 92,1 89,22,1 92,2 53,1 3, 1 92,1 44 

: rem 

134 

2330 

DATAI 8, 1 89,1 2,1 92,1 57,21 , 1 92,1 89 

: rem 

94 

2340 

DATAI 3,1 92,1 57,22,1 92,1 04,74,72,76 

: rem 

1 82 

2350 

DATA207,192,104,74,72,176,8,254,21 

: rem 

1 82 

2360 

DATAI 92,208,3,254,22,1 92,1 89,0,1 92 

: rem 

1 83 
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2370 

DATA221,17,192,189,1/192,253,18 

: rem 

37 

2380 

DATAI 92,1 44,1 8,1 89,0,1 92,1 57,1 7 

: rem 

44 

2390 

DATAI 92,1 89,1,1 92,1 57,1 8,1 92,1 04 

: rem 

94 

2400 

DATA7 4,72,76,1,1 93,104,74,72,1 76 

: rem 

86 

241 0 

DATAI 3,222,1 7,1 92,1 89, 1 7,1 92,201 

: rem 

76 

2420 

DATA255,208,3,222,18,192,189,17 

: rem 

36 

2430 

DATAI 92,221 , 4,1 92,1 89,1 8, 1 92,253,5 

: rem 

1 86 

2440 

DATAI 92,1 4 4,1 8, 1 89,4,1 92,1 57,1 7 

: rem 

45 

2450 

DATAI 92,1 89,5,1 92,1 57,1 8,1 92,1 04 

: rem 

95 

2460 

DATA74,72,76,46,193,104,74,72,176 

: rem 

1 49 

2470 

DATA8,254,17,192,208,3,254,18,192 

: rem 

1 39 

2480 

DATAI 04,74,1 76,5, 1 69,1 , 1 53,2 5,1 92 

: rem 

1 36 

2490 

DATA200,232,232,224,4,240,3,76,91 

: rem 

1 1 7 

2500 

DATAI 92,2 3 8,27,1 92,108,2 9,1 92 

: rem 

199 

251 0 

DATA35994:REM -CHECKSUM- 

: rem 

187 

2520 

FORI=49183T049478 

: rem 

242 

2530 

READX:POKEI,X:CC=CC+X 

: rem 

1 22 

2540 

NEXT 

: rem 

1 0 

2550 

READX: IFX<>CCTHENPRINT"ERRORE NEI DATI 

LETTURA JOYST 


ICK" 

: rem 

1 91 

2560 

RETURN 

: rem 

1 73 

2570 

REM - PAGINA DI PRESENTAZIONE- 

: rem 

48 

2580 

POKE53281 , 0 :PRINTCHR$(30) 

2 rem 

21 7 

2590 

PRINT"{CLR}{ 4 GIU'}" 

2 rem 

1 20 

2600 

PRINT"{ 10 SPAZI}ATTENTI ALLE MINE" 

2 rem 

249 

2740 

PRINT"{ 5 GIU'}{CYN}{ 3 SPAZI}* PREMERE 

UN TASTO 

PER 


INIZIARE *" 

2 rem 

1 02 

2750 

RETURN 

2 rem 

1 74 

2760 

REM -ESPLOSIONE FINALE- 

2 rem 

1 89 

2770 

IFI/2=INT(1/2)THENPOKE53281,2:GOTO2790 

2 rem 

48 

2780 

POKE532 81 ,7 

2 rem 

1 02 

2790 

S=54296:W=54276:A=54277 

2 rem 

3 

2800 

H= 54273 :L=54272 

2 rem 

27 

281 0 

FORB = 2 0TOOSTEP-1 :POKES,B:POKEW, 1 29 

2 rem 

1 78 

2820 

POKEA,15 :POKEH,7 :POKEL,12 :NEXT 

2 rem 

1 59 

2830 

POKEW,0:POKEA,0 

2 rem 

1 81 

2840 

POKE53281 , 8 :FORJ = 1TO20:NEXT 

2 rem 

1 87 

2850 

POKE532 81 ,0 

2 rem 

93 

2860 

RETURN 

2 rem 

1 76 

2870 

REM -COLLISIONE TRA MINA E DETECTOR- 

2 rem 

171 


2880 CODE=1 02 4 + INT((Y-50)/8 + 1 )*4 0 + INT((X-18)/8) : REM CONVE 



RTE X,Y 

: rem 

83 

2890 

IFPEEK(CODE)=32THEN3060 

: rem 

141 

2900 

IFPEEK(CODE+1)=32THENCODE=CODE- 1 

: rem 

233 

291 0 

REM -EFFETTO SONORO- 

: rem 

247 

2920 

A=54277 :S = 54 2 96 :W=54 2 76 :H = 54273 :L=54 272 

: rem 

1 37 

2930 

FORB=l5TOOSTEP-1 

: rem 

7 

2940 

POKE54272+CODE,B 

: rem 

1 82 

2950 

POKE54 2 72 +CODE+1 ,B:POKE5 32 80,B + l 

: rem 

72 

2960 

POKES,B:POKEW,129 

: rem 

73 

2970 

POKEA,15 :POKEH,7 :POKEL,112:NEXT 

30 

: rem 

21 4 





2980 
2990 
3000 
301 0 
3020 
3030 
3040 
3050 
3060 
3070 
3080 

3210 

3220 

3230 

3240 

3250 

3260 

3270 

3280 

3290 

3300 
331 0 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
341 0 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
351 0 
3520 
3530 
3540 
3550 
3560 


POKEW,0 :POKEA,0 

: rem 

1 87 

REM -SPEGNE LA MINA- 

: rem 

1 34 

POKEGODE,32:POKECODE+l,32 

: rem 

1 5 

REM -RESETTA IL BORDO- 

: rem 

37 

POKE532 80,1 4 

: rem 

1 35 

REM -PUNTEGGIO- 

: rem 

1 82 

YS=YS+100 

: rem 

24 

PRINTTAB(6)CHR$(145)"PUNTEGGIO ";YS 

: rem 

1 24 

RETURN 

: rem 

1 69 

REM ROUTINE DI FINE TEMPO 

: rem 

8 

PRINT"{HOME}{RED}{ 11 GIU'}{ 13 DES}TEMPO 

SCADUTO!" 


: rem 

1 84 

PRINT:PRINT:PRINT 

: rem 

225 

PRINTTAB(13)"PUNTEGGIO ";YS 

: rem 

1 89 

PRINT:PRINT 

: rem 

28 

PRINTTAB(5)"* PREMI UN TASTO PER GIOCARE 

* " : rem 

21 5 

POKEV+21,0 

: rem 

57 

REM EFFETTO SONORO 

: rem 

1 56 

S=54272 

: rem 

96 

FORL=0TO24:POKES+L,0 

: rem 

5 

POKES+1 ,64 :POKES+5,9 

: rem 

1 95 

POKES+15,30:POKES+24,1 5 

: rem 

71 

FORI = lTOl2 :POKES+4,21 

: rem 

21 

FORJ = lTO200:NEXT:POKES + 4,2 0 

: rem 

1 90 

FORJ=1T02 00 :NEXT:NEXT 

: rem 

1 43 

POKES+24,0 

: rem 

57 

RUN1020 

: rem 

1 31 

REM: 

: rem 

234 

REM-DATA SPRITE 0- 

: rem 

44 

DATA2 52,63,0,248,31 ,0,240,1 5,0 

: rem 

21 6 

DATA232,23,0,199,227,0,132,33,0 

: rem 

1 5 

DATA4,32,0,4,32,0,4,32,0 

: rem 

1 56 

DATAI 32,33,0,1 99,227,0,232,23,0 

: rem 

8 

DATA2 40,15,0,248,31 , 0,2 52,63,0 

: rem 

21 1 

DATA0,0,0,0,0,0,0,0,0 

: rem 

244 

DATA0,0,0,0,0,0,0,0,0 

: rem 

245 

REM: 

: rem 

234 

REM-DATA SPRITE 1- 

: rem 

45 

DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

: rem 

32 

DATA0,0,224,0,1,80,0,1,240,0,0,224 

: rem 

1 25 

DATA0,0,64,0,3,248,0,7,188,0,13 

: rem 

9 

DATA246,0,25,179,0,25,243,0,1,240 

: rem 

105 

DATA0,1,176,0,3,24,0,3,24,0,7,28,0 

: rem 

1 33 

DATAI 5,30 

: rem 

21 7 

REM: 

: rem 

233 

REM- DATI PER LE MINE 

: rem 

1 60 

DATA0,0,3,63,122,63,15,0 

: rem 

1 71 

DATA0,0,192,252,94,252,240,0 

: rem 

125 


31 




GRUPPO EDITORIALI 

JACKSON 

OfVtSIOC UBKI 



Le strenne 
firmate Jackson 



IMPARA IL BRIDGE 
CON IL COMPUTER 

Claudio Trinchino 
Imparare il bridge con l'aiuto del 
computer diventa un piacevole 
passatempo. Un programma 
interattivo elaborato su IBM e 
su C 64 ti conduce passo passo 
a diventare ... quasi un esperto 
di bridge Poi con un po’ di 
applicazione ... 

Con floppy disk per C 64 
Cod. cSz9 Lire 50.000 
Con floppy disk per IBM 
Cod. CC239 Ure 50.000 


Puoi trovare le strenne Jackson 
nelle migliori librerie 


COMPUTERGRAPHIA 

JoanScott 

In 176 meravigliose e 
coloratissime pagine, uno 
splendido viaggio attraverso le 
immagini elaborate con le 
tecniche più avazate di 
computer-graphics. 

Cod. 802P Lire 40.000 


COfANETTl 
SPEEDY COMPUTER 

L’informatica attraverso i testi e 
le immagini studiate per i 
bambini può diventare facile 
anche per ... mamma e papà. 

Cod. CU001 Lire 45.000 
Cod. CU002 Ure 45.000 


COMPUTER IMAGE 

Mauro Salvemini 
Chi è ancora convinto che il 
computer limiti le possibilità 
creative dell’uomo, può scorrere 
nel libro, le splendide immagini 
di computer art a colon e ... 
convincersi del contrario. 

Cod. 0231 Lire 40.000 


ROMANZO ROSA CON IL C64 

Marco Buc ceri Francesco Da vim 
Stefana Deambcogi 
Sei un tipo romantico? Ti 
piacciono i romanzi? 

Il computer, attraverso un 
simpatico programma scritto per 
Commodore 64. collabora con 
te e con _ nella costruzione di 
un Vostro "Romanzo rosa". 

Con floppy disk. 

Cod. CC230 Lire 40.000 





